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IDENTIFICATION 


PRODUCT CODE: AC=8552C-MC 

PRODUCT NAME : CZDMECO DDCMP MD LN UNIT TST 
DATE: SEPTEMBER 1978 

MAINTAINER: DIAGNOSTICS 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
Tht 7 amamnaa be FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOF TWARE atyehyy IN THIS DOCUMENT IS FURNISHED UNDER 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH L LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1976, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND ALL OPERATIONS 
OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT 


PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
GURATI THESE PARAMETERS os! oo sa IN THE 


WAYS: 1) MANUAL 
INPU HE OPERATOR >) = - THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICAL 


CZDME TESTS THE DOMC-11 LINE UNIT (M8201 OR M8202). 
PERFORMS WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS. 
CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION 
DDCMP MODE. THE MODEM SIGNALS ARE ALSO CHECKED. CZDME 
REQUIRES A DMC we (M8200 OR M8204) TO RUN. FOR 
BEST DIAGNOSIS TURN-AROUND CONNECTOR SHOULD BE INSTALLED, 
og: tad DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE 


CURRENTLY THERE ARE FIVE OFF — . te an tied THAT ARE TO BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE. 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FIVE DIAGNOSTICS ARE: 


CZDMC CREV] BASIC W/R AND MICRO-PROCESSOR TESTS 
CZDME CREV] DDCMP MODE LINE UNIT TESTS 

DZDMF CREV)] BITSTUFF LINE UNIT TESTS 

DZDMG CREV] JUMP AND CROM TESTS 

DZDMH CREV] FREE-RUNNING TESTS (HEAT TEST TAPE) 


REQUIREMENTS 

EQUIPMENT 

ANY PDP11 FAMILY CPU on AN LSI-11) WITH MINIMUM 8k MEMORY 
ASR 33 (OR EQUILIVALENT) 


DMC11-AR WITH DMC11-DA OR DMC11-FA OR 
DMC11=AL WITH DMC11-MA OR DMC11-MD 
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33 
93 . STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT ae 
BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 

THE ‘STATUS TABLE’’ INFORMATION WHIC 

DIAGNOSTICS BY MANUAL INPUT (QUE AUTOMATICALLY 
(AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
ALTERED BY THE OPERATOR. 


LOADING PROCEDURE 

ME THOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
AS DISK_,MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
4, HE’ MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 
ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY * SIZE 


SSBHNFARWNISSRIKAPALVLSSSLKIR 


} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


7 
7 
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PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE ‘HALT’ SW UP) 


DEPRESS "LOAD ADDRESS" KEY ON CONSOLE AND RELEASE. 


DEPRESS "START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 
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13%4 
135 
36 


STARTING PROCEDURE 


A. SET SWITCH REGISTER TO 000200 

B. PRESS “LOAD ADDRESS" KEY AND RELEASE 

C. "AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 
Snes 7A PREVIOUS START OR A PREVIOUSLY RUN DMC11 
DEPRESS “START KEY" AND RELEASE. THE PROGRAM WILL TYPE 

MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 

UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 = STAT3 


001500 160010 145310 177777 000000 
001510 160020 145320 177777 000000 


THE PROGRAM WILL TYPE ‘R* AND PROCEED TO RUN THE DIAGNOSTIC. 
THIS WOULD ee THE STATUS 
THE PR IN THIS EXAMPLE 


THE i WO DMC11°S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
Is DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 


IF_ THE DIAGNOSTIC ~ STARTED WITH SWOO=1 INDICATING MANUAL 
PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 


HOW MANY DMC11"S TO BE TESTED?1 


Oi 
CSR_ADDRESS?160010 
VECTOR ADDRESS?310 
BR PRIORITY LEVEL? (4,5,6,7)?5 
DOES MICRO-PROCESSOR HAVE CRAM?, (Y OR N)N 
? IF NONE TYPE *N'’, IF M8201 TYPE ‘I’, IF 


OOP BACK CONNECTOR ON?Y 
SWITCH PAC#1 (DDCMP LINE#) 27377 
SWITCH PAC#2 (BM873 BOOT ADD) ?377 


FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 
V THE nied - ATION IN THE MAP REFLECTS THE 
F_THE DIAGNOSTIC WAS STARTED WITH 


OU IF AUTO-SIZING IS 

"MUST BE VERIFIED TO BE CORRECT 

- _IF_IT DOES NOT MATCH THE HARDWARE THE 

DIAGNOSTIC MUST ot, RESTARTED WITH SWOO=1 AND THE QUESTIONS 


— =o I YY I) I - 2 = 
RAVALSISVRA 


— sos es 
SELES 
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ANSWERED. 


CONTROL SWITCH SETTINGS 
oP ON ERROR 


‘INHIBIT TYPE OUT/ABELL ON ERROR. 
INHIBIT_ITERATIONS. (OUI CK PASS) 
ESCAPE TO NEXT TEST ON ERROR 
LOOP WITH CURRENT DATA 
CATCH ERROR AND LOOP ON IT 
USE PREVIOUS STATUS TABLE. 

LK ROUT INE BEF ORE CLOCKING 


AWDNNNMNNMMNYM 
feeccececcece 


ED 
RESELECT DMC11°S DESIRED ACTIVE 
LOCK ON SELECTED TEST 
RESTART PROGRAM AT SELECTED TEST 
BUILD NEW STATUS TABLE FROM QUESTIONS. (IF SwWO7=0 
AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
AUTO-SIZING) 


SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
~aheenetie® AND ARE USED ONLY ON STARTING OR RESTARTING THE 


ee ee 
DWNOU SW -O 


21 
21 
21 
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4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 


SW 01 RESTART PROGRAM AT SELECTED euat i IY i$ yen 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE 
TRYING TO SELECT A_TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
WHEN THIS SWITCH { USED_THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
AND CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SWO1 WILL CAUSE THE + ey TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


RESELECT “ZZ S_ DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS _ TYPED OUT FOR SETTING THE SWITCH REGISTER 


E NG 
LOCATION; THEREFORE IF FOUR 
xx*DQ NOT*** m4 SWITCHS 
UP POSITION. THIS WOULD BE 
TAL ER DO NOT SELECT MORE ACTIVE DMC11S_ THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


LOAD ADDRESS 200 

START WITH SW one 

PR WILL TYPE MESSAvc 

SET A SWITCH FOR wel ak DMC DESIRED ACTIVE. 
EX E: IF YOU HAVE 4 DMC'S BUT ONLY WANT TO 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 
3 = 1. PRESS CONTINUE 

NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 
PRESS CONTINUE. 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


1 DELETE PRINT OUT/BELL ON ERROR. 

2. DELETE sr PRINTOUT. 

3 HALT ON T RROR. 

4. GOTO BEGINNING OF THE TEST(ON ERROR). 
5 GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


1. Sw06 HALT (IN _ROMCLK ROUTINE BEF ORE a 
MI CRO-PROCESSOR pty THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME a 
(IF ENABLED BY ‘SCOP1") ON AN ERROR 
PRINTED IN FRONT OF THE TEST NO. 
10) Sw09 IS Cc T 


US 

SCOPE LOOP (SW14=0, SwW10=0, Swo9=1. 

SwO9 IS NOT ENABELED; 

(CONSTANT); SWO8 IS BEST. ey 14=1,0, 

SWO9=0, SWO8=1). FOR INTERMITTEMT ERRORS; 

WILL LOOP ON TEST REGUARDLESS OF ERROR 

ERROR. (SW14=1, SW10=0, SWO9=0, SWO8=1,0) 
3. Swill INHIBIT INTERATIONS. 
4. SW14 LOOP ON CURRENT TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS aoe IS NON-ZERO THE PROGRAM ASSUMES IT 
IS___ UNDER ACT11_ OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE DMC11°S = TESTED THE 

PROGRAM WILL RETURN TO ‘XXDP* OR ‘ACT-11' 


OPERATING PROCEDURE 
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 


SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 
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310 
PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


tea Sy ki (VIA Sw 15=1) WHEN EVER AN ERROR OCCURS. 
3. SET SW 1 (LOOP ON THIS TEST) 
4 SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY san 

ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERA 

Pn IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
O KNOW MORE INFORMATION CONCERNING THE “‘~ REPORT; LOOK IN 

THE LISTING FOR_THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 

NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 

THE TEST CAN BE DETERMINED. 


ERRORS 

AS DESCRIBED ar a Tin ra” WILL ALWAYS BE A TEST NUMBER 

PC TYPED OUT AT THE TIME OF a" (PRO 

12=0). _IN MOST CASES ADDITIONAL I 

IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 
THE ERROR. 

ERROR RECOVERY 


F FOR SOME REASON THE DMC11_ SHOULD ‘HANG THE BUS" (GAIN 


WNWANWNWAS 
aod ah cach ee cet cath ach at ce 
WOONAOUSWN— 


SNS 


I 
phe OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER — IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. THIS SHOULD HAPPEN; LOOK IN LOCATION 
*TSTNO' — 1226)F oR THE NUMBER OF THE TEST THAT WAS 
RUNNING THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


RESTRICTIONS 
STARTING RESTRICTIONS 


SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 
YS mae PRINTED ON THE TTY TO COMPLETLY ISOLATE 
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358 
359 
360 OPERATING RESTRICTIONS 


THE FIRST TIME A DMC11 DIAGNOSTIC IS LOADED yt CORE AND RUN 
T HIS_IS DONE BY MANUAL INPUT 


THE 
bf PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(M8200)- JUMPER W1 MUST BE IN, AND SWITCH 7 OF £76 MUST 
BE IN THE OFF POSITION. 


KMC (M8204)~ JUMPER W1 MUST BE IN. 


LINE = Nt gee JUMPERS W1, W2, AND W4 MUST BE IN. JUMPERS 
en BE OUT. SW8 OF £26 MUST BE IN THE ON 


LINE UNIT RTE oon anes W1 MUST BE IN. SW8 OF E26 MUST BE 
IN THE OFF POSITION 


MISCELLANEOUS 
EXECUTION TIME 


ALL DMC11 DEVICE er geal WILL GIVE AN "END PASS* MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
RF PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 
AS IF SwW11 (DELETE ITERATIONS) WAS UP (=1) 
"VERIFY NO HARD ERRORS’ AS oie AS POSSIBLE. 
TIME IS STARTED- WILL BE A "QUICK 
DMC1 IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS CZDMC CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
DMC11 T UNNING 


a RUN XAMPL 
C® EACH DMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 
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KEY LOCATIONS 


RETURN (1214) CONTAIN, ~4E ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATiON COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


NEXT (1216) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PEF ORME 


TSTNO (1226) CONTAINS THE NUMBER OF THE TEST NOW 
PEFORMED. 


RUN (1316) THE BIT IN "RUN® ALWAYS POINTS TO THE 
CURRENTLY BEING TESTED. _ EXAMPLE: 
1302/0000000001000000 MEANS THAT DMC11 
IS THE DMC11 NOW RUNNING. 


DMCROO=DMCR17 
DMSTOO-DMST17 
(1500)-(1640) 
eg LOCATIONS CONTAIN THE INFORMATION NEEDED 
O TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY. 
THEY CONTAIN THE CSR,VECTOR AND __ STATUS 
CONCERNING THE CONFIGURATION OF EACH DMC11. 


DMACTV (1306) EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED DMC11 WILL BE TESTED IN TURN. 
THAT DRETT NO” 00, 0762-05-08 wate MILL Be TESTED. 
EXAMPLE : et: 76006000000010001 MEANS 


THAT DMC11 NO. 750.08 WILL BE TESTED. 
DMCSR (1402) = THE CSR OF THE CURRENT DMC11 UNDER 


"STATUS TABLE’ (1500-1640) 
THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
ALSO IF DESIRED BY 


; TIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 


THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO DMC11°S. THE TABLE CAN CONTAIN UP TO 16 DMC11°S. 
aaa THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 


MAP OF DMC11 STATUS 


PC CSR STAT1 STAT2  STAT3 


001500 160010 145310 177777 
001510 160020 016320 000000 
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EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 
INFORMATION FOR 1 DM N 


Cc THE PC_S 
THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE a 2 


DMC'S STATUS IS IN LOCATIONS, 1500, 1502, 1504, AND 1506. 
SECOND DMC STATUS IS LOCATED AT 1510, 1512, 1514, AND 1516. 


STAT2: 


STAT3: 


— CONTAINED IN EACH 4 WORD ENTRY $S DEFINED AS 


CONTAINS DMC11 CSR ADDRESS 


BR PRIORITY LEVEL 


LOW BYTE IS SWITCH PAC#1 (DDCMP_LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


BITO=1 RUN FREE RUNNING TESTS ON KMC11 
BIT1=0 DMC11-AR (LOW SPEED) 
BIT1=1 DMC11-AL (HIGH SPEED) 


SEQ 0011 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


Nece taot oy FINDS A DMC11 AS FOLLOWS: IT _ STARTS 
T ADDRESS 160000 AND ag AL 
O_AND INCLUDING ADDRESS 1677 
our. 2585 FOLLOWING IS DONE, THE 
TO A 125252 THEN IT IS READ BACK. 
1 626 OR 16520 A 


BERR 


REFORMED. THIS 
INSTALLED. IF A 
SWITCH SETTINGS 
TABLE MUST BE 


aS ee SS SS SY SY SY YY 


PPV AVIVAV SISSY 
WDONAULWN—O 


ST BE ANSWERED. ALL 
WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FI 

THE DIAGNOSTIC MUST BE RESTARTED AND THE STIONS ANSWERED. 
FINDING THE VECTOR AND BR LEVEL 


THE VECTOR -_ (ADDRESS 300-776) IS FILLED WITH THE 
INSTRUCTION IOT AND_ °.+2° (NEXT ADDRESS) THE PROCE 
STATUS IS er # AT 7 

THE PS IS L 


MAD 
BAD DMC11) T ASSUMES VEC 
5 AND THE PROBLEM SHOULD BE FIXED IN 

PROBLEM IS FIXED; THE PROGRAM SHOULD BE R 

F_AN INTERUPT OCCURED; 

re PICKED UP 

YOU; * THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT 


SOFTWARE SWITCH REGISTER 
F THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT 
S SAME SWITCH OP AS 

. HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT _ CON ALL ONES (177777) THIS SOFTWARE SWITCH 
REGISTER I3 USED. 
CONTROL : 
TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING EXECUTION OF 
THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 


TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
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SWR=XXXXXX NEW? 


WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 

REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
-~ OPERATOR ~ AT WHICH TIME THE OPERATOR IS REQUIRED 

TO TYPE ONE MORE OF THE LEGAL CHARACTERS: 1) 0 2) 

LINE FEED(<LF>), om) CARRIAGE RETURN(<CR>), 

(CTRL _U). NO CHECK IS MADE FOR LEGALITY 

CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO 

AN OCTAL DIGIT. 


CHANGE THE CONTENTS OF - often eine te SIMPLY TYPES 
AND TERMINATES THE INPUT STRING 


DEPENDING ON THE PROGRAM AC 

THE INPUT VALUE $73) BE TRUNCATED T T 

AT LEAST ONE DIGIT MUST BE TYPED On ANY GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS TERMINATED WITH A Re THE DIAGNOSTIC 
WILL al EXECUTION FROM THE POINT WHICH IT WAS 


yPED THE PROGRAM 

I WIT -_ THE <LF> DIFFERS FROM 
THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 
ADDRESS 200. 


IF A CTRL U IS — AT ANY POINT IN THE INPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 


TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 
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3*AC=8552C-MC__ DMC11 DDCMP MODE LINE UNIT TESTS 
;*COPYRIGHT 1976,1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


5* Se Se SS ewe eee SBE eee eee patents lictncdenitcttie ach, eth tocitetiationd Liictoat Nein 


: STARTING PROCEDURE 
;LOAD PROGRAM 


:LOAD ADDRESS 000200 

7SWR=0  AUTOSIZE DMC11 

; SWO7 =1 USE CURRENT DMC11 PARAMETERS 

;SWOO=1 INPUT NEW DMC11 PARAMETERS 

;PRESS START 

PROGRAM WILL TYPE Sink tee DMC11 DDCMP MODE LINE UNIT TESTS’’ 

[PROGRAM WILL TYPE STATUS 

;PROGRAM WILL TYPE ‘R'’ TO INDICATE THAT TESTING HAS STARTED 

AT. * END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
THEN RESUME TESTING 

SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


Boe e ToS SS SERS | 


ARXARAAKRAO 
aol cal al al call eel ol ald 
NOWSWI HO 


SWITCH REGISTER OPTIONS 


RaS3S 


LT ON ERROR 
ON at TEST 


NHIBIT ERROR _TYPEOUT 
ELETE TYPEOUT/BELL ON ERROR. 
RATIONS 
TO NEXT TEST ON ERROR 
OOP WITH CURRENT DATA 
OoP ERROR 


ON 
SE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11 
HALT BEFORE CLOCKING MICRO=PROCESSOR INSTRUCTION 


tak tat 

— 
oe 

a 

oi 

ro 

— 


ESC 
L 
L 
U 


“= 
° 
~ 
= 
- 
= 
= 
e 
2 
sz 
= 
’ 
‘eo 
= 
° 
se 
= 
= 
e 
— 
sc 


1, 
1, 
1, 
1, 
1, 
1, 
1, 
1, 
1, 
1, 


sRESELECT DMC11°S TO BE TESTED (ACTIVE) 
LOCK a. TEST SELECT 

RESTART PROGRAM AT SELECTED TEST 

; INPUT omc 1 PARAME TERS 
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sREGISTER DEFINITIONS 


= GENERAL REGISTER 


GISTER 
:PROCESSOR STACK POINTER 
;PROGRAM COUNTER 


LOCATION EQUIVALENCIES 


177776 PS=177776 sPROCESSOR STATUS WORD 
001200 STACK=1200 sSTART OF PROCESSOR STACK 


; INSTRUCTION DEFINITIONS 


PUSH1SP=5746 :DECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 SAME ADO 17° a STACK 1 WORD 
PUSHRO=10046 SAVE RO ON STACK 

POPRO=12600 ;RESTORE RO PROM STACK 
PUSH2SP=24646  :DECREMENT STACK rice 
POP2SP=22626 : INCREMENT STACK TWICE 

-EQUIV EMT.HLT :BASIC DEFINITION OF ERROR CALL 


:BIT DEFINITIONS 
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STARR AERA AEE RRERRRERREKEKERREERREREREREEKE EERE KEE ERE KEE 
{ ;TRAPCATCHER FOR ILLEGAL INTERRUPTS 

STHE STANDARD "TRAP CATCHER'’ IS PLACED 

BETWEEN ADDRESS 0 TO ADDRESS 776. 

:1T LOOKS LIKE 'PC+2 HAL 


FERRARA RARER ERR REE EKER EERE EERE KEEH 


-=0 
STANDARD INTERRUPT VECTORS 


POWER FAIL HANDLER 
SERVICE AT LEVEL 7 
;ERROR HANDLER 
SERVICE AT LEVEL 7 
[GENERAL HANDLER DISPATCH SERVICE 
SERVICE AT LEVEL 7 


SAVE FOR ACT-11 OR X 

;RETURN ADDRESS IF UNDER ACT-11 OR XXDP 
SSAVE FOR ACT=11 OR XXDP 

:FOR USE WITH ACT-11 “OR XXDP 


sACT-11 PROGRAM CHARACTERISTICS 


OONAUSWN—O 


SOFTWARE DISPLAY REGISTER 
SOFTWARE SWITCH REGISTER 


000200 . 
000137 002002 . :GO TO START OF PROGRAM 


708 
709 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 


001000 -=1000 
005377 041501 034055 MTITLE: .ASCII <377><12>/AC-8552C-MC/<377> 
046504 030503 020061 -ASCIZ /DMC11 DDCMP MODE LINE UNIT TESTS/<377> 


001200 -=1200 
; INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 


177570 DISPLAY: 177570 
177570 SWR : 177579 
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: INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 


177560 TKCSR: 177560 TELETYPE KEYBOARD fey bye sy REGISTER 
TKDBR: 177562 S TELETYPE KEYBOARD DATA BUFFER 
: ;TELEPRINTER CONTROL REGISTER 
TPDBR: 177566 :TELEPRINTER DATA BUFFER 


ocean CONTROL PARAMETERS 


SCOPE ADDRESS FOR LOOP ON TEST 

ADDRESS OF NEXT TEST TO BE ron 

ADDRESS FOR LOCK ON CURRENT DATA 

;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 


S 
“NUMBER OF PASSES COMPLETED 
;TOTAL NUMBER OF ERRORS 
;PC OF LAST ERROR CALL 


COOCOCOWSCOO 


LSTERR: 
zPROGRAM VARIABLES 


SWITCHES AT START OF 
DM STATUS WORD STORAGE 


: TEMPORARY STORAGE 


; G 
SSTACK POINTER STORAGE 
[PROGRAM COUNTER STORAGE 


sHIGHEST LOCATION FOR NPR'S 
aoe S SELECTED ACTIVE. 
L_ NUMBE 7" me 


SO0CTA R OF DMC1 
ORIGINAL ACTV_ DEVICES 
WORKABLE 

;POINTER TO RUNNING DEVICE. 


; TABLE POINTER, 
: TABLE POINTER 


SENORESS 


88 88888sss 
3 


per = a PP P= Ps 
WN WWUWG 


as) 
Nm 
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PROGRAM CONTROL FLAGS 


INIFLG: PROGRAM Pao eres FLAG 
: ERROR OCCURED FLA 
;LOCK ON Ser pa TEST FLAG 
SQUICK VERIFY FLAG. 
[ON FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESS 


DEFINITIONS FOR TRAP SUBROUTINE CALLS 
;POINTERS TO SUBROUTINES CAN BE FOUND 
2 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


CREE RRR RE RE REKEERRERE EERE ERE ERE EERE KEE REE 


. TRPTAB: 
maven * ;CALL TO SCOPE LOOP AND ITERATION HANDLER 


SCOPI=TRAP 1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
TPESTRAP #2 :CALL TO TELETYPE OUTPUT ROUTINE 
INSTR=TRAP SS :CALL TO ASCII STRING INPUT ROUTINE 
INSTER=TRAP SG :CALL TO INPUT ERROR HANDLER 
PARAM=TRAP +5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
SAVO5=TRAP+6 , :CALL TO REGISTER SAVE ROUTINE 
RESOS=TRAP?/ ZCALL TO REGISTER RESTORE ROUTINE 
CONVRT=TRAB+10_ > CALL DATA OUTPUT ROUTINE 
CNVRT=TRAB #11 CALL DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
MSTCLR=TRAP+12 CALL ISUE A MASTER CLEAR 

.MSTCLR 
DELAY=TRAP+13 : DELAY 

DELAY 
ROMCLK=TRAP+ 14 : CLOCK ROM ONCE 

.ROMCLK 
DATACLK=TRAP+15 : CLK DATA 


DELAY A CLOCK TICK 


s 
2 MARA AAAAALAALASLESALALELRRSSESSE SESE SERS E SER ERE REESE RSE SECS CRESS SSE SEES SY 
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3DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 
STAT1: 

STAT2: 0 

STAT3: O 

7DMC11 VECTOR AND REGISTER INDIRECT POINTERS 


POINTER RECEIVER INTERRUPT VECTOR 


oo 


GISTER 
CONTROL STATUS REGISTER HIGH BYTE. 
CONTOL OUT REGISTER 
; PORT REGISTER(SEL 4) 
POINTER PORT REGISTER(SEL 6) 


lelelolelelelo) 


: TEMP STORAGE 


TEMP: 0 
=. +40 


rate Bb STATUS TABLE AND ADDRESS ASSIGNMENTS 


CONTROL STATUS REGISTER FOR DMC11 NUMBER 00 
[VECTOR FOR DMC11 NUMBER 00 


[DDCMP_LINE# FOR DMC11 NUMBER 00 
33RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
:VECTOR FOR uAC11 NUMBER 01 

[DDCMP_LINE# FOR DMC11 NUMBER 01 

73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 NUMBER 02 
:VECTOR FOR DMC11 NUMBER 02 

[DDCMP_LINE# FOR DMC11 NUMBER 02 

73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
VECTOR FOR DMC11 3 

:DDCMP_LINE# FOR DMC11 NUMBER 03 

73RD STATUS WORD 


= CONTROL STATUS REGISTER FOR DMC11 NUMBER 04 
;VECTOR FOR DMC11 NUMBER 04 

;DDCMP_LINE# FOR omc NUMBER 04 

73RD STATUS WORD 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


i - 


SEQ 0019 
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= CONTROL STATUS T cadeta FOR DMC11 
;VECTOR FOR DMC11 R 05 
:DDCMP skh FOR DMC11 NUMBER 05 
73RD STATUS WORD 


: CONTROL STATUS gp td FOR DMC11 
: VECTOR FOR DMC11 R 06 

; DDCMP Le FOR DMC11 NUMBER 06 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
VECTOR FOR DMC11 NUMBE 
;DDCMP_LINE# FOR DMC11 NUMBER 07 
73RD STATUS WORD 


Je poten ap STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 10 
[DDCMP_LINE# FOR DMC11 NUMBER 10 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
VECTOR FOR DMC11 NUMBER 11 
[DDCMP_LINE# FOR DMC11 NUMBER 11 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 1 
[DDCMP_LINE# FOR DMC11 NUMBER 12 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
VECTOR FOR DMC11 NUMBER 13 
:DDCMP_LINE# FOR DMC11 NUMBER 13 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
: VECTOR FOR DMC11 NUMBER 14 
DDCMP_LINE# FOR DMC11 NUMBER 14 

‘ 3RD STATUS WORD 


= CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 
[DDCMP_LINE# FOR DMC11 NUMBER 15 
73RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
VECTOR FOR DMC11 NUMBER 16 
:DDCMP_LINE# FOR DMC11 NUMBER 16 
33RD STATUS WORD 


CONTROL STATUS REGISTER FOR DMC11 
VECTOR FOR DMC11 NUMBER 17 
SDDCMP_LINE# FOR DMC11 NUMBER 17 
73RD STATUS WORD 


—— 


ooo 
WONAURWN—O 


SISLVVes 


3 


sO 
SON 
WR 


92: 
925 
926 


— — rr _— SS — Yr ss es — “4 Ss ns ab ae a ~~ > SS.) 
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CZDMEC.P11 11-SEP-78 12:38 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0021 


3DMC11 PASS COUNT AND ERROR COUNT TABLE 


zPASS COUNT FOR DMC11 NUMBER 00 
sERROR COUNT FOR DMC11 NUMBER 00 


zPASS COUNT FOR DMC11 NUMBER 01 
zERROR COUNT FOR DMC11 NUMBER 01 


PASS COUNT FOR DMC11 NUMBER 02 
zERROR COUNT FOR DMC11 NUMBER 02 


PASS COUNT FOR DMC11 NUMBER 03 
sERROR COUNT FOR DMC11 NUMBER 03 


:PASS COUNT FOR DMC11 NUMBER 04 
ERROR COUNT FOR DMC11 NUMBER 04 


zPASS COUNT FOR DMC11 NUMBER 05 
zERROR COUNT FOR DMC11 NUMBER 05 


PASS COUNT FOR DMC11 NUMBER 06 
ERROR COUNT FOR DMC11 NUMBER 06 


:PASS COUNT FOR DMC11 NUMBER 07 
zERROR COUNT FOR DMC11 NUMBER 07 


PASS COUNT FOR DMC11 NUMBER 10 
;ERROR COUNT FOR DMC11 NUMBER 10 


zPASS COUNT FOR DMC11 NUMBER 11 
ERROR COUNT FOR DMC11 NUMBER 11 


PASS COUNT FOR DMC11 NUMBER 12 
zERROR COUNT FOR DMC11 NUMBER 12 


3PASS_ COUNT ¢ > DMC11 NUMBER 13 
ERROR COUNT FOR DMC11 NUMBER 13 


:PASS COUNT FOR DMC11 NUMBER 14 


PACTO1: 
ERCTO1: 


PACTO2: 
ERCTO2: 


PACTO3: 
ERCTO3: 


PACTO4: 
ERCTO4: 


PACTOS: 
ERCTOS: 


PACTO6: 
ERCTO6: 


PACTO?: 
ERCTO?: 


PACT10: 
ERCT10: 


PACT11: 
ERCT11: 


PACT12: 
ERCT12: 


PACT13: 
ERCT13: 


PACT14: 
ERCT14: 


PACT15: 
ERCT15: 


PACT16: 
ERCT16: 


PACT17: 
ERCT17: 


PASS COUNT FOR 
:ERROR COUNT FOR 


PASS COUNT F 
ERROR COUNT 


oo 9o0O 920 CO 90 920 9C20O 020 920 90 920 920 CO CO COO So°0” 
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CZDMEC P11 


11-SEP-78 12:38 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


FORMAT OF STATUS TABLE 


15 14 13 12 11 #10 09 08 O07 06 O05 04 03 O02 01 


DEFINITION OF FORMAT 


CONTAINS DMC11 CSR ADDRESS 


BITS 00-08 IS DMC11 VECTOR ADDRESS 
1 MICRO-PROCESSOR HAS CRAM 


: Seni 


1 
LOW IS SWITCH PAC#1 (DDCMP_LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


Ae sy DO FREE — TESTS ON _KMC 

T BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY]) 
KC MUST it URITTEN FROM RUNNING 

=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 
BIT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 


m 


SEQ 0022 
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BR 


PROGRAM INITIALIZATION 
RUPTS 


OR 
: CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
7 TYPE TITLE MESSAGE 


012737 000340 . : #340,PS LOCK OUT INTERRUPTS 
0127 MOV STACK ,SP 7SET UP STACK 
#.PFAIL ,a#24 3SET UP POWER FAIL VECTOR 
DMNUM SA VE NUMBER OF rors IN SYSTEM. 
iCLEAR SOFT TYPEOUT FLAG 


7CLEAR ERROR FLAG 
FLG ZERO QUICK VERIFY FLAG 

#0M.MAP-10,CREAM:GET MAP POINTER. 
CNT .MAP=4 MILK ;GET COUNT MAP POINTER 
#81T15,RUN ZPOINT POINTER TO FIKST DEVICE. 
#CNT .MAP ,RO PASS COUNT POINTER TO RO 
(RO) + :CLEAR T. 
oe. -MAP+100,RO ;DONE YET? 


:KEEP GOING 
LSTERR ; LAST “7; 2 meena 


#1,TSTNO t 

#.START,RETURN ; UP FOR POWER FAIL BEFORE 
; TESTING STARTS 

a6 ,-(SP) ; SAVE CURRENT VECTORS 


a4 ,-(SP) 
#6$ ars [SET UP FOR TIMEOUT 
peri :SET SWR TO HARD SWR ADDRESS 
001200 a97e90. BI SPLAY :SET DISPLAY TO HARD SWR ADDRESS 
177777 #-1,aSwR [REFERENCE HARDWARE Sw REGISTER 


6$+2 
7$ = -1 USE HARD SwWR 
: (SP)+, (SP) + 
000176 001202 ASWREG, SWR POINTE OFT SWR 
000174 001200 #DISPREG DISPLAY: ;POINTER TO SOFT DISPLAY REG 
000004 : (SP) +, ane TRESTORE VECTORS 
000006 MOV (SP) +. aw 
001324 “HAS INITIALIZATION BEEN PERFORMED 
BNE 0$ ‘BR ES 

003522 508 31F ACT-11 AUTOMATIC MODE, DON'T TYPE ID 
001000 : :TYPE TITLE MESSAGE 
007606 : Pc, SCHECK FOR SOFT SwWR 
176734 aSWR, STRTSW [STORE STARTING SWITCHES 
000042 ane” 1S 1 RUNNING IN AUTO MODE? 

+ 


é ‘BR IF NO 
001236 STRISW TIF YES, CLEAR SWITCHES 
000001 #SWOO,STRTSW =: IF swO0=1 QUESTIONS ARE ASKED. 


SSEZERES 


Baebabad babu abahabababat 
coo 
N 
Nm 


CRESS REPL ft teh tol dol SS RED 


SSIRARESLS 


001236 27 

“BR IF SwO07=0 
001306 DMA : ARE ANY DEVICES SELECTED? 
007154 :NO DEVICES SELECTED. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


es 4 et eS a SS 


ee ed ad ad ed ed ed 
NQAMUBWN-—O 
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STOP THE SHOW 
BR -“e ;DISQUALIFY CONTINUE SWITCH 
010512 17$: JSR PC ,AUTO.SIZE GO DO THE AUTO SIZE 
1324 16$: INIFLG peg 3 TIME? 
BE 1$ 7BR IF YES 
STRTSW :1F USING SAME PARAMETERS DONT TYPE MAP 
oun !BIT2,STRTSW;1S TEST NO. OR ate Pa 


:1F NO THEN TYPE STA 
IF YES DO NOT TYPE STATUS 
:$ T FLAG 


a 


t. 
CZ 


TYPE HEADER 
SET POINTER 
(R4)+, TEMP2 
1$ 


(R4)+, TEMPS 
(R4)+, TEMPS 
(R4)+, TEMPS T STATS 

2 TYPE OUT STATUS MAP 


BR 5$ 
1$: #DM.MAP ,RO ;RO POINTS TO STATUS TABLE 


Peri rori iti ii iii iti iitiiitiititiiitii titi titi itt 

:2*AUTO SIZE TEST 

22*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
reat Wa FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT R 


RUN ISSRVEAREUN FS BRBVRORAVLS S00 


ADDR TOL 
AND TELL YOU A jhe ADDRESS 
ME Y' IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
£2 RCORRECT) CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE 
* 
TTT TIT T ITT TT TTT TT LTT TLTT LTTE LTTE TEL EE TELE T ELLE TTT TTT 


013746 000004 a4 ,-(SP) SAVE LOC 4 
000006 MO + eat Vv 


000006 
001252 ; pes 
001404 AUSTRT: (RO) ,DMCSR 
BE AUDONE 
: 
100000 000002 #BiT15,2(RO) 
FINE SKIP 


MUNN ES BEBRRERHRHREW 


WN—OOONAW 


BR 2$ 

100000 000002 1S: #B1115,,2(RO? 

002674 000004 2s: #NODEV 4 
38 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


ANISSELETRAVTISSSNKAL 
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#6. LR3 3R3 R3 Is COUNT OF DEVICES BEFORE DMC 
#10,R3 Rg R3 IS COUNT OF DEVICES BEFORE KMC 
ADEVTAB,R2 [R2 IS DEVICE TABLE PONTER 

#16001 0/R1 “ START DORES $ 160010 

(Ro) R4 -IF NO TIMEOUT, GET NEXT ADDRESS 
R4,Ri IN R1 

R1 

R4,R1 3 

3 ‘ANY MORE DEVICES TO CHECK FOR? 


R 

FLOAT 2BR IF 

MERR , a4 :0K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 
R1,XLOC SSAVE FIRST DMC/KMC ADDRESS 

R5 [DMC OR KMC? 


_ 
_ 
~J 
aR « 


RRRAVTLS IANO 


1$ 7BR_IF KMC 
#81T15,2(RO) 2 CHECK FOR DMC CSR 
SKIP F 


2s 
#B1T15,2(RO) 
SKIP 


3 Cc 
[CHECK DMC —— 
;DOES IT MATCH 

BR IF YES 

:GET NEXT DMC ADDRESS 

:D0 IT AGAIN 

+g TO ot Ean CSR IN TABLE 


ce a ec cae cae cee ce a ee ce ee ced ee cd ce cae ee ee ced ed ed 
Co 
N 


BELESRAVLESE 


#10,R0 
(RO) ,DMCSR 
AUDONE 
+10, RO : NEXT DMC CSR 
#10,XLOC ‘SSpATE EXPECTED DMC/KMC ADDRESS 
(ROS ,DMCSR [GET NEXT DMC/KMC CSR 
AUDONE [BR IF DONE 
XLOC,R1 :GET EXPECTED DMC/KMC ADDRESS 
FY : CONT INUE 
(R2)+,-(R3) ON TIMEOUT. INC R2, DEC R3 
TEMP3 i CHECK FLAG IF = 0 TYPE HEADER 
1$ [SKIP HEADER 

:TYPEOUT HEADER MESSAGE 

CONFIGURATION ERROR!!! ! 
HERR, SAVPC : SAVE PC FOR TYPEOUT 

TYPE OUT ERROR PC 
TYPE REST OF HEADER 


177777 #-1 , TEMPS SET FLAG SO IT ONLY GETS TYPED ONCE 
001262 : R1,SAVR1 ;SAVE R1 FOR TYPEOUT 


SeleoRass 


PINON 


23333 
WONAOUSWM—O 


3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MOMNNNoNoNoNoNny 


NOW 


: TYPE CSR VALUES 
;DMC OR KMC ? 


R5 : 
3$ ;BR IF KMC 


4$ ; CONT INUE 
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104402 3$: 
007330 


4$: MP (SP) +, (SP)+ sADJUST STACK 
OK BR TO GET OUT 


~ 
& 


6.2 


a a kd dd td a 
N 


NNNNNNN?N 


Mr 


7DMC? 
1$ BR_IF_KMC AND ALL DONE 
177777 zSET_R5 TO -1 (KMC) 
001500 #DM.MAP ,RO RESET RO TO START OF TABLE 
BR AUSTRT 0 DO 
(SP) +, a6 £RE STORE r 6 
000004 (SP) + ,a44 ;RESTORE LOC 4 
000010 001236 « eceieeailctias :SELECT SPECIFIC DEVICES?? 


BEQ 
006144 -MNEW : TYPE THE MESSAGE. 

C RO :ZERO DATA LIGHTS 

HAL ;WAIT FOR USER A Hs WHAT DEVICES TO RUN 
176104 001312 @SWR , SAVACT ;1S THE NUMBER 

2s ‘aR IF NUMBER 180 OK. 
006005 »MERR3 TELL USER OF INVALID NUMBER. 
:STOP E re HING. 


BR 72 sRE AGAIN. 
176064 001506 : @SWR ,DMACTV :GET NEW g ttl PATTERN 
001306 MOV DMACTV,RO ; SHOW THE USER eG Sistine 


#300,R0 
R 


— — 
MNMNNrnrry ™ 
OHIVSA RUNS CONOR 


SREP ERS 


Oo 


NSS 


000300 
000302 


(RO) +,(R1)+ 
001000 euee RO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SBIWVRARG 


RESTART 


— 
NMNMVNNPoNnon honronofony 
98000808 mn nN Mw 
Wh 


aad ned a 
fo) 
Ww 


«BEGIN: MOV &#lTACK, SP SET UP STACK 
MOV a6 ,- (SP) :SAVE LOC 6 
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CZDMEC.P11 11=SEP=78 12:38 PROGRAM INITIALIZATION AND START UP. SEQ 0027 
1286 003162 013746 000004 MOV ans ,-(SP) :SAVE LOC 4 
1287 003166 005000 CLR RO ‘START AT 0 
1288 170 012737 003234 000004 MOV #2$ a4 :SET UP FOR TIME OUT 
1289 003176 005037 000006 CLR a6 :TO AUTOSIZE MEMORY 
1290 003202 00 6S: TST (RO) + =CHECK ADDRESS IN RO 
1291 003204 022700 157776 CMP #157776,RO :IS IT AT LEAST 28K 
1292 003210 001374 BNE IF NO 
1293 003212 162700 007776 SUB #7776,RO SAVE 2k FOR MONITORS 
1294 003216 010037 001304 7$: MOV RO,MEML IM STORE MEMORY LIMIT 
1295 003222 012637 000004 MOV (SP) +, a6 SRESTORE LOC 4 
1296 003226 012637 000006 MOV (SP) +. awe ;RESTORE LOC 6 
1297 003232 000413 BR 10$ TINUE 
1298 003234 022626 2s: CMP (SP) +, (SP)+ TADJUST STACK 
1299 003236 162700 000004 SUB #4 RO [GET LAST GOOD ADDRESS 
1300 003242 162700 007776 SUB eras RO SSAVE 2K FOR MONITORS 
1301 003246 022700 030000 CMP #30000 ,RO 1S IT 8k? 
1302 003252 001361 BNE [BR IF NO 
1303 003254 012700 037400 MOV #37400,RO IF ax DON'T SAVE 2k 
1304 003260 000756 BR 7$ 
1305 003262 012737 000340 177776 10$: MOV #540,PS “LOCK OUT INTERRUPTS 
1306 003270 032737 000004 001236 BIT 1T2,STRTSW = CHECK FOR LOCK ON TEST 
1307 003276 001411 BEQ te “BR IF NO LOCK DESIRED. 
1308 003300 104402 006043 TYPE ,MLOCK TYPE LOCK SELECTED 
1309 003304 012737 000240 003612 MOV WNOP,, TTST AD 
1310 003312 012737 000240 00361 MOV WNOP; TTST+2 SET UP TO LOCK 
1311 003320 000406 BR I 
1312 003322 013737 003730 603612 1S: MOV BRW,TTST [PREPARE NORMAL SCOPE ROUTINE 
1313 003330 013737 903732 003614 MOV BRX.TTST+2 LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
1314 003336 012737 010060 001214 3$: MOV ACYCLE,RETURN :START AT ‘'CYCLE’’ FIND WHICH DEVICE TO TEST 
1315 003344 032737 000002 001236 4$: BIT #SWO1T,STRTSW  :IS TEST NO. SELECTED? 
1316 003352 001002 BNE 5$ :BR IF YES 
1317 003354 104402 005755 TYPE MR ‘TYPE R 
1318 003360 000177 175630 S$: JMP @RE TURN ‘START TESTING 
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CZDMEC.P11 11=SEP=78 12:38 END OF PASS ROUTINE SEQ 0028 
sEND OF PASS 

TY 


: TEST 
sUPDATE PASS COUNT 
CHECK FOR EXIT TO ACT=11 
RESTART TEST 


= 
Ww 
ab 
wo 


RSRORGROAGAY 
UFWN =O 


THE WORLD CLEAN AGAIN. 
OR PC 


Ly 


PASCNT 
175570 MO PASCNT ,@DISPLAY 
/MEPASS 
s TYPE a 
‘TYPE VECTOR 
TYPE PASSES 
[TYPE ERRORS 


P :SHOW IT 
MILK,RO GET POINTER TO PASS COUNT 
PASCNT, (RO) + STORE PASS COUNT FOR THIS DMC11 
ERRCNT , (RO) + :STORE ERROR COUNT FOR THIS DMC11 
SAVNUM sARE ALL DEVICES TESTED? 
RESTRT 7BR_IF NO. 
#377 ,QV.FLG SET THE QUICK VERIFY FLAG. 
DMNUM , SAVNUM sRESTORE THE COUNT 
a#42,R1 CHECK FOR ACT-11 OR DDP 
RESTRT :1F NOT, CONTINUE TESTING 

3STOP THE SHOW--CLEAR THE WORLD 


ISIE 


wW 
¥ 


: 
g seesegessssscsses 
& 


KEKE RECA 

N 
SN SWAY oO 

NON KSMOMONT 


: 


SERSEEESESS 
s 


PC,(R1) 


Vn 
Who 


010060 001214 RESTRT: #CYCLE RETURN 
010060 iam CYCLE 


WWAWWIAIWNAWW 
Byun 
ODONAW 


XVEC: 


XPASS: 


XERR: 


SERSTESES 


3 


Ss 
RANISS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WINWWAWw 


JSR Pc,CKSWR zCKECK FOR SOFT SWR 
MOV RO, (SP) ;SAVE RO ON THE STACK 
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13? 003604 032777 040000 175370 BIT #B1T14,aSWR 3‘ LOOP ON THIS yg ly 
1328 ides 4 TTST: ay 1$ :BR IF (IF LOCK SWO1=1; THIS LOC =240) 


CIF LOCK SwO1=1; THIS LOC =240) 
005737 003734 KCSR DONE 
001434 BE $ :BR IF NO (LOCKED ov TEST) 
003734 ot :YES. CLEAR FLAG 


es O NEXT TEST 
#SW11,ASWR peur rey * auusepses (QUICK PASS) 


QV.FLG sHAVE PASSES — 
2s BR IF QUICK 

LPCNT : UPDATE ITERATION yo oe 
ee ARE ALL ITERATIONS DONE?? 
$ :BR_IF NOT YET 

ERRFLG ;PREPARE FOR NEW TEST 
LPCNT :START ICOUNTER AT 0 


LOCK 

#20, 1 COUNT sRESET ITERATIONS 

NEXT ,RE TURN GET NEXT TEST 

(SP) ,RO s:POP_RO OFF OF THE STACK 
;FAKE AN ‘RTI'' 


DMCSR,R1 [R1 CONTAINS BASE DMC ADDRESS 
@RE TURN *GO DO THE TEST 


Se3 


READ RRS Lt tot toh tod et 


CHECK FOR FREEZE ON CURRENT DATA 


. t PC,.CKSWR CHECK FOR SOFT SWR 
175232 8 #SWO9,ASWR SIS SWO9=1(SET)? 
1$ :BR IF NOT SET. 
bck 


$ 
LOCK, (SP) :GOTO THE ADDRESS IN LOCK. 
GO BACK. 


TELETYPE OUTPUT ROUTINE 


. : R5,-(SP) 3SAVE R5 ON THE STACK. 
000002 a2(SP) ,R5 :GET ADDRESS OF MESSAGE 
000002 #2,2(SP) :POP_OVER ADDRESS. 
010016 WFLG :SOFT SWR MESSAGE? 
1$ cIF YES TYPE IT OUT REGARDLESS OF SWi2 
010000 #SW12,aSWR : INHIBIT ALL PRINT OUT? 
$_ BR IF NO PRINT OUT WANTED eieet 
(R35) 21S NUMBER MINUS? (MSB=1(BIT7 
BP 2$ : IF NUMBER IS PLUS 
005672 -MCRLF ine A CR/LF 
175154 : @TPCSR + ta 


$ 
175150 (R5)+ ,aTPDBR 
(SP)+,R5 SEND OF OUTPUT. RESTORE RS. 





CZDME_ MACY11_ 30A(10 


CZDMEC.P11 


1431 


—_ 
Coals 
Can) 


BRR 
SRVRAF 


RERREREREL 
OONAULSWI—OWO 


VMIVMIVMnyt 


a a a a ee al a a ce ce ce a cl eth ce cl cl cd ech eed 
Who 


dag gah yok gate 
ae 


004046 


S85 


NASSTSLVSERHRERVsraRs ruse 


— es SS SS SS SS Ss SS SS SS SS SS Ss Ss SS SS 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


O-=0000 
4 —3 4 2 — 
MMMOPoNoNnony 
N MW 
Oe) WW 


SuseSNSTsces 


=—NMonor 

NEN 
— 

RRS 


175046 


52). _11=SEP=78 12:45 PAGE 30 
11-SEP-78 12:38 G 


ENERAL 


- INSTE: 


INSTR2: 


& 3 
UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


R3,-(SP) ;SAVE R3 ON STACK 
R4,-(SP) sSAVE R4 ON STACK 
@4(SP) ,.MSG 

#2,4(SP) 

#INBUF ,R4 

#7 ,R3 

aTKCSR 

1$ 

@TKDBR, (R4) 

#200, (R4) 


2$ 

@TKDBR ,aTPDBR 
R3 

1$ 

(SP) +,R4 
(SP)+,R3 

-MQM 

R3,-(SP) 


RESTORE R4 
RESTORE R3 


CONVERT ASCII STRING TO OCTAL 


4(SP) ,R5 
(R5)+,LOLIM 
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CZDMEC.P11 11-SEP-78 12:38 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0031 


004300 
004 


BR 

INSTER 

BR 

TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: R5,HILIM 

BH PARERR 
R5,LOLIM 
PARERR 
LOBITS,RS 
PARERR 

STORE NUMBER AT SPECIFIED ADDRESS 
DEVADR ,R4 
R5,(R4)+ 
#2,R5 
ADRCNT 
1$ 
(SP)+,R4 
(SP)+,R5 


Oo 
w 


Ww 
ON eee 8S8SSSss3s 


DONAOURWR 


LOLIM: 


LOBITS: 0 
ADRCNT=LOBITS+1 
SAVE PC OF TEST THAT FAILED AND RO-R5 


MOV 4(SP) , SAVPC SAVE R7 (PC) 
;SAVE RO-R5 
R5,SAVR5 SAVE R5 


R4, SAVR4 SAVE R4 
R3,SAVR ; 


3 
Re, sAvag 
R1,SAVR 
RO, SAVRO 


AAAAAAD AAAI TUT IIT 


Ww 
Mr 


sRESTORE RO-R5 


SAVRO RO sRESTORE 
sRESTORE 


BIKAKUNSSY 


Ww 


1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


EEX 
NOOO 


SARS RS 
SAVR5,R5 
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RTI s LEAVE 
son arte OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


UNABSESES, 


BIRR 


a(R1)+,BINWRD 
#3, CHRCNT 


2$ 

#177400 ,BINWRD 

BINWRD ,R4 
CHRCNT.RS 

ATEMP,RO 
R4,R3 

R155770, R3 
#060,R3 

R3, (RO) + 

RG 

RG 

R4 

R5 

3$ 


AMDATA,R3 
=O) - (R3)+ 
~~ 


$ 
— 
#040, (R3)+ 


SERS RECESS 


WIS 


MAMIMAVIVIVIUIUTUT 
BBVAARA 


SRESSSSELESR EES 


SSSS¥E 


(SP) +.RO 


RT] 
WRDCNT: 
CHRCNT: 


1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
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1599 004713 SPACNT=CHRCNT +1 
004714 000000 BINWRD: 0 


SEE 


; TRAP oF ase SERVICE 

> ARGUMENT yA TRAP_IS EXTRACTED 

zAND USED _AS OFFSET TO OBTAIN POINTER 
:TO SELECTED SUBROUTINE 


(SP), ~ sGET PC CF RETURN 
#2, 7=PC OF TRAP 
a(SP), tsp) 3GET TRP 

(SP) ZMULTIPLY TRAP ARG BY 2 
#177001, (SP) 


CLEAR UNWANTED BITS 

[POINTER TO SUBROUTINE ADDRESS 
SUBROUTINE ADDRESS 

:GO TO SUBROUTINE 


SESRoe 


Oe De ae a et ed ed ed ed ed 


ARARAARAAO 
a aa onl ed end ad a ed 


NOUSWN-—O 


007606 «HLT: PC,.CKSWR CHECK FOR SOFT SWR 
010000 174220 #SW12,aSWR ;BELL_ON ERROR? 
Q BR IF NO BELL 


BE XBX 
174220 aTPCSR [TTY READY. 

BP [DON'T WAIT IF TTY NOT READY. 
4207 @TPDBR HE TTY. 
#SW13,aSwR 
HALTS 7BR ED. 
(SP) ,LSTERR [WAS THIS ERROR FOUND LAST TIME? 
1$ “BR IF YES 
(SP) ,LSTERR [RECORD BEING HERE 
ERRFLG [PREPARE HEADER 

sSAVE ALL Ray | REGISTERS 
(SP) RS GET THE PC OF ERROR 


#2.R GET ADDRESS OF TRAP CALL 
(R5) RG :GET HLT INSTRUCTION 
[MULT BY TWO 


R4 
(R5) ,R4 
R4 


#177001 ,R4 

#. ERRTAB RS 

(R4) +, ERRMSG 

(R4)+,DATAHD 

(R4) ,DATABP 
FLG 


sBR IF YES 
;DOES DATA TABLE EXIST? 
sBR IF YES. 


*XTSTN 
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17 
005 3 
567 


003522 
173744 


T 
ERRMSG: 
sirens” 


DATAHD: 0 
TYPDAT: 


DATABP: 0 
RESREG: 
CMP 


HALTS: 


-MERRPC 
-ERTABO 


-MCRLF 
#-1,ERRFLG 
ERRMSG 
WRKO.FM 


DATAHD 
TYPDAT 


DATABP 
RESREG 


ASENDAD , 0442 
1$ 


aSwR 
EXITER 


z TYPE PC. 

:SHOW IT 

GIVE A CR/LF 

NO MORE HEADER UNLESS NO DATA TABLE. 
:1s oon AN ERROR MESSAGE? 


ERROR MESSAGE 
“DATA HEADER? 
BR IF NO 


: DATA HEADER 
‘DATA TABLE? 
‘BR IF 


: DATA TABLE 
SRESTORE PROC REGISTERS 
SIF ACT-11 AUTOMATIC MODE, HALT!! 


HALT ON ERROR? 
7BR IF _NO HALT ON ERROR 


1$: 


:SAVE RO 
2(SP) ,RO : SHO ERROR PC IN DATA LIGHTS 


;GET RO 
; UPDATE ERROR COUNT 
:GOTO TOP OF TEST? 


EXITER: ERRCNT 
173716 “+ ae -@SwWR 


7BR_IF YES 
173706 #SW10,aSWR :GOTO NEXT TEST? 
2$ IF NO 


001214 NEXT ,RE TURN ‘SET FOR NEXT TEST 
: #STACK, SP TRESET SP 
DMCSR,R1 


P SET UP RI 
@RE TURN :GOTO SPECIFIED TEST 
RE TURN 


6.2 


, 3.2 
TSTNO 
ENTER HERE ON POWER FAILURE 


:SET_UP FOR POWER UP TRAP 
SHALT ON POWER DOWN NORMAL 


MOV MRESTART ,24 
HALT 
PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


” MOV #.PFAIL, 26 SET 
MOV #STACK, SP 


UP FOR POWER FAILURE 
RESET THE STACK POINTER 


RERERER ERE 
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DMCSR,R1 RESTORE R1 
TEMP 3READY FOR_TIMMER 
US _ONE i. My TIMER! 
"BR IF MORE TO GO 
: TYPE THE MESSAGE 
= TELL WHAT TEST TO RETURN TO. 


‘START. SLEAN 


:CLEAR MAINT BITS 
ZSTART CLEAN UP OF DEVICE 
START DOING THAT TEST AGAIN. 


53 


WOONAULWN OO 


C2 


ed td 


SANS NAN EERERERES 


NN 
oo~ 


173746 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:POKE CLOCK DELAY BIT 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4_IBUS* 
173730 BIT gts. :1S cL Ock BIT SET? 


awasy 


dugg 


-MSTCLR: 
B WBIT6,aDMCSRH  ;SET MASTER CLEAR 
#BIT6'BIT7, “@DMICSAH_: CLEAR MASTER CLEAR AND RUN 


NS 
RSSSS 


#BIT1,aDMCSRH ;SET ROMI 
;LOAD INSTRUCTION IN SEL6 
sADJUST STACK 
SHALT IF SW06 =1 
:BR IF SW06 =0 
HALT BEFORE CLOCKING INSTRUCTION 
1$: #B1T1!BITO,@DMCSRH ;CLOCK INSTRUCTION 
#B1T2!BIT1!B1T BIT. aDMCSRM CLEAR ROMO, ROMI, STEP 


f 


NNRRN 
WOONAW 


wg 


AO 
Wr 


-DATACLK: 
MOV 


x 


oth) . TEMP PUT TICK A IN TEMP 
1$: WBITS, @DMCSRH 
MP 2DMCSR,aDMCSR WASTE TIME 
WBIT4,@DMCSRH ;CLEAR STEP LU 
TEMP DEC TICK COUNT 
1$ ;BR_IF NOT DONE 


SNS SW SNOW SNS SS 
FRASARABARH 


a<SP)+, TEMP :MOVE COUNT TO TEMP 
#2,-(SP) sADJUST STACK 


i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


g 
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1767 005626 1$: 
1768 2098 104414 XT WORD IS_ INSTRUCTION, ROMCLK PC=5304 
1769 0056 021364 021364 T4_ IBUS* REG11 
1770 173552 ". — BIT CLEAR? 
ca} 00564 1$ ; 
WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 ; BUS* REG11 
000002 . ; CLOCK BIT SET? 
BN 2$ ; YES 


001416 


83SIFINI 


3 


ee Ne Ne ee ee ee es 


<185<12 
eine FAILED. RESTART AT TEST / 
Meh 9 PASS CZDME / 


$3555 /N0 DEVICES PRESENT./ 

<377>/ INSUFFICIENT DATA!/ 

<377>/TEST PC-/ 

<377>/LOCK ON SELECTED TEST/ 
/CSR: / 


/VEC: / 

/PASSES: / 

/ERRORS: / 

‘aad NO: / 

a 

ae SWITCH REG TO DMC11°S DESIRED ACTIVE./ 


MAP OF DMC11 STATUS/ 


CSR STATI STAT2 ae, 
po pom MANY DMC11°S TO BE TESTED?/ 
<377>/CSR ADDRESS?/ 
<377>/VECTOR ADDRESS? 
<377>/BR PRIORITY DEVEL? (4,5.6,7)? 
<377>/1F DMC HAS CRAM (M8204) T TYPE fy IF CROM (M8200) TYPE 'N’' ? 
$3555 UHI OH LINE UNIT? IF NONE TYPE 'N’, IF M8201 TYPE ‘''', IF M8202 TYP 
<377>/SWITCH PACH] (DDCMP LINE #)?/ 
<322>/Sid1 GH PAC#2 (BM873 BOOT ADD) ?/ 
<377>/1S THE LOOP BACK CONNECTOR ON?/ 
$3555 70 DEVICES ARE SELECTED/ 
<377><12>/SWR= / 


/NEW? 
<5795<577>/0MC11 FOUND AT NON-STANDARD ADDRESS PC: / 
tone) ye FOUND / 


020122 
020104 
042504 
052523 


052123 
045503 
000040 


000040 
051505 
051117 
7040 


RRRAR AAR RAR AARRA 
POMPOM MINNNNNN?NoNonory 


051440 
000040 


IZ 
IZ 
IZ 
IZ 
SC1Z 
IZ 
IZ 
IZ 
CIZ 
IZ 
C12 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
II 
I] 
CI] 
IZ 
CIZ 
IZ 
IZ 
IZ 
IZ 
C1Z 
IZ 
C1Z 
C1Z 
C1Z 
C1Z 
IZ 
IZ 
C1Z 
C1Z 
C1Z 
IZ 


KMC) / 
PEED: Cy PO YDMCT1=AR (REMOTE .L.Ow SPEED) OR DMC11-AL(LOCAL,HIGH SPEED) TYPE ‘R'’ 
XSTATQ: 
6,3 
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003 6,3 

003 , 6,3 

003 6,3 
TEMP 

002 ‘ 6,2 


ae 


s;BUFFERS FOR INPUT-OUTPUT 


ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 


022737 000176 2 ASWREG, SWR iTS THE SOFT SWR BEING USED? 
1077 BNE CKSWR5 ; F NO 
171362 a@TKCSR 1S DONE SET? 
BP’ 2s ; GO 


3 F NOT 
177777 003734 #-1 , DONE :1F DONE SET, SET FLAG 
000007 171346 : #7 ,aTKDBR ; G TYPED? (7 BIT ASCII) 


$ :BR IF YES 
000207 171336 #207 ,aTKDBR :WAS CTRL G TYPED? (8 BIT ASCII) 
CKSWR5 BR IF NO 
zSTORE R2 
SSTORE R3 
sSTORE R4 
177777 010016 MOV ma 3SET SOFT TYPE OUT FLAG 


177777 
007205 


lie cioh RRR tary 


00 00 00 00 00 Co CO Co CO Co 
aah a cath cad adh ah ath ah ed ead 
WDWNAULSWN—O 


2 TYPE = 

: TYPE OUT PRESENT CONTENTS 
3 OF SOFT SWITCH REGISTER 

007215 i TYPE ‘NEW? 


: S 
010020 : Pp SGET RE SPONSE 
000015 MP 15,R3 ;WAS 


USWN— 


000012 


:BR IF YES 
000025 MP IT CTRL _U? 

BR IF YES(START OVER) 
000007 MP :1F CNTL G GET NEXT CHAR 


R4 2M MUST_BE A DIGIT SO CLR FLAG 
177770 . ONLY 0-7 ARE LEGAL SO MASK OFF BITS 
5 Re SHIFT R2 3 TIMES 


SSSREERERES 


RoRaRuS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


006302 Re 
050302 : sADD LAST DIGIT 
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CKSWRS GET NEXT CHARACTER 

4$: MOV #.START,6(SP)  ;LF WAS TYPED SO GO TO START 

5$: R4 21S FLAG CLEAR? 
2 IF NOT DON’T CHANGE SOFT SWR 

MOV 7 IF YES _THEN WRITE NEW CONTENTS TO SOFT SwR 

6$: Ss CLEAR TYPEOUT FLAG 
sRESTORE R4 
sRESTORE R3 
sRESTORE R2 
; RETURN 


GOSERERSREREE 


RAW 


171160 @TKCSR 
BP = 


171154 @TKDBR,R3 
171152 Ts aTPCSR 
171146 MOV R3,aTPDBR 
000206 #B1T7,R3 


0.00 09 00 00 09 00 C0 CO 


MV 
won 


SOF TSW: 
002 ‘ 6,2 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RERES 
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CZDMEC .P11 11-SEP-78 12:38 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0039 
1866 
1867 “ROUTINE USED TO *'CYCLE’* THROUGH UP TO 16 DMC11'S 
1868 sTHIS ROUTINE SETS UP_THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
1869 SAND RUNS THE SPECIFIED DMC11'S THIS ROUTINE *MUST* 
1870 7BE_RUN FIRST BEFORE ENTERING THe DIAGNOSTIC FOR THE 
1871 : SETUP NECESSARY. 
1878 : ~ 
1874 010060 005737 001306 CYCLE: TST DMACTV sARE ANY DMC11°S TO BE TESTED? 
1875 010064 001004 BNE $ 2BR IF OK. 
1876 104402 007154 TYPE »NOACT sNO DMC11°S SELECTED!! 
1877 010072 HALT :STOP THE SHOW. 
1878 010074 000776 BR ~! SDISQUALIFY CONT. Sw. 
1879 010076 000241 1$: CLC [CLEAR PROC. CARRY BIT 
1880 010100 006137 001316 ROL RUN : UPDATE TER 
1881 010104 005537 001316 ADC R :CATCH CARRY FROM RUN 
1882 010110 062 001322 ADD #4 MILK UPDATE POINTER 
1883 010116 062 000010 001320 ADD #10, CREAM UPDATE ADDRESS POINTER. 
1884 010124 022737 001700 001320 CMP -MAP+200,, CRE 
1885 010132 001006 BNE 2s KEEP GOING; NOT ALL TESTED FOR. 
1886 010134 012737 001500 001320 MOV #DM.MAP,CREAM RESET ADDRESS POINTER. 
1887 010142 012737 001702 001322 MOV #CNT.MAP MILK  >RESET PASS COUNT POINTER 
1888 010150 033737 001316 001306 2$: BIT RUN, DMACTV 21S oy ONE ACTIVE? 
1889 010156 001747 BEQ 1$ F_NO 
1890 010160 013700 001320 MOV CREAM,RO GET ADDRESS POINTER 
1891 010164 013702 001322 MOV MILK,R2 [GET PASS COUNT POINTER 
1892 010170 012037 001404 MOV (RO)+, Pte 7, LOAD SYSTEM CTRL. REG 
1893 010174 011037 001374 MOV (RO) VEC ;LOAD VECTOR 
1894 010200 042737 177000 001374 BIC #177000" DMRVEC ;CLEAR UNWANTED BITS 
1895 010206 012037 001366 MOV (RO)+, STATI LOAD STATI 
1896 010212 012037 001370 MOV (RO)+,STAT2 sLOAD STAT2 
1897 010216 012037 001372 MOV (RO) +, STATS zLOAD STATS 
1898 010222 012237 001230 MOV (R2)+,PASCNT ;LOAD PASS COUNT 
1899 010226 012237 001232 MOV (R2)+, ERRCNT LOAD ERROR COUNT 
1900 010232 012700 000002 MOV #2,RO0" :SAVE CORE THIS WAY! 
1901 010236 013737 001404 001406 MOV DMCSR ,DMCSRH 
1902 010244 005237 001406 INC 
1903 010250 013737 001406 001410 MOV DMCSRH,DMCTL 
1904 010256 00 001410 INC DMCTL 
1905 010262 013737 001410 001412 MOV DMCTL ,DMPO4 
1906 010270 001412 ADD RO, DMPO4 
1907 010274 013737 001412 001414 MOV DMPO4 , 
1S 10502 001414 ADD RO, DMPO6 
1910 010306 013737 001374 001376 MOV DMRVEC,DMRLVL 3 ;PTY LVL 
1911 010314 060037 001376 ADD RO, DMRLVL : 
1912 010320 013737 001376 001400 MOV DMRLVL DMTVEC ;TX VEC 
1913 010326 37 001400 ADD C : 
1914 010332 013737 001400 001402 MOV OMTVE.C. DMTLVL =;TX LVL 
bat 010340 060037 001402 ADD RO, DMTLVL 
1917 010344 032737 000002 001236 BIT #SWO1,STRTSW 21S TEST NO. SELECTED 
1918 010352 001450 BEQ 7$ :BR IF NO 
1919 010354 4$: 
1920 010354 005737 000042 TST athe RUNNING IN AUTO MODE? 
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:BR IF YES 
:GET TEST NO. 


7$ 
005672 TYPE -MCRLF 


Sone 
Sean 


012320 ‘ #TST1.RO 
: (PC) +, (RO) ;CMP FIRST WORD TO 12737 
(PC) +,a(PC)+ 


6 :BR_IF_NOT SAME 
001226 TSTNO,2(RO) DOES _TSTNO MATCH? 
BNE :BR IF NO 
001226 #TSTNO,4(RO) 71S ya OK? 
001214 RO,RETURN :I1T IS A LEGAL TEST SO DO IT 
005755 -MR 
000002 a oSTRTSW 


RRRRRKRLEK 
HERE ERSRAS 


S 
RER 
RF 


3 3a? 


: (RO) + :POP_RO 
026034 — aid END YET? 


:BR_IF NO 
005666 -MQM YES ILLEGAL TEST NO. 
BR 4$ TRY AGAIN 


012737 012320 : #TST1,RETURN : PREPARE RETURN ADDRESS 
013701 001404 : DMCSR,R1 R1 = BASE DMC11 ADDRESS 
000177 170502 @RE TURN :GO START TESTING. 


ROUTINE USED TO '‘AUTO SIZE** THE DMC11 

:CSR_AND_ VECTOR. 

;NOTE: THE CSR MAY BE ANY eY IN THE FLOATING 
: ne te | re (160000: 164000) 

: AND THE VECTOR MAY BE ANY WHERE IN THE 

: FLOATING VECTOR RANGE (300:770) 


LELISSLRERE 


n°) 
wn 
WNAUESWN—OO0N 


AUTO.SIZE: 
RESET s INSURE A BUS INIT. 
CSRMAP: MO #DM. ;LOAD MAP POINTER. 
1$: + ZERO ENTIRE MAP 
is 
OCTAL NUMBER OF DMC11'S TO 0 
O DMC MAP 


PEESRERELSS 


38 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0.0 
NS 
— 


DMACTV : 

#SWOO0, STRTSW ; QUESTIONS? 

+6 :BR IF YES 

7$ :1F NO SKIP QUESTIONS 
#1, TEMPS START WITH 1 


0105 
010570 
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E288 


. 1 
001252 001310 MO TEMP3 , DMNUM :DMNUM = HOW MANY 
005672 12$: 


oMCRLF 
TYPE WHICH DMC IS BEING DONE 
[TEMPS IS WHICH DMC 


ES 
On 


001256 INC TEMPS 


On 


0 
1 
TEMPS , (R2)+ STORE CSR IN MAP 


SEESPPBSB IgA seeeeeesece 
RRERECRCERS 


a od st = Sh = st SS SS 2 SS ss a SS oS SS SY SS 


Wh 


0 
1 
001254 MOV TEMPS , (R2) STORE VECTOR IN MAP 


3ASK WHAT BR LEVEL 
012266 PC, INTTY GET RESPONSE 
000024 #24 ,R3 ; 


% :BR IF LESS THAN 4 


50$ 
000027 #27 ,R3 

50$ :BR IF GREATER THAN 7 
000011 #11,R4 3R4 = NUMBER ad SHIFTS 

R3 :SHIFT R3_LEFT 

R4 :DEC SHIFT COUNT 

BN’ 4 BR IF NOT DONE 

170777 #170777 ,R3 BIC UNWANTED BITS 

R3, (R2) :PUT BR LEVEL IN STATUS MAP 
; CONT INUE 


2000 
200 
200. 
200: 
2004 
200 


SoEcee 


BBBBByay 
WOONAUSWN Oo 


RESPONSE IS OUT OF LIMITS 
10$ TRY AGAIN 


:DOES DMC HAVE CRAM? 
PC, INTTY sGET REPL 

#131,R3 

9$ YES 

#116,R3 NO 

40$ sNOT A Y OR N 


005666 MQM sTvPe “*?* 
010776 8$ SASK AGAIN 
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40$: 


012266 JS PC, INTTY 
000122 MP #ie2.R5 


000114 #114,R3 
41$ 


“AR OR DMC11-AL? 
E SPONSE 


Morr 3 = 
ABMALO 


loleleflelelelele) 
3 


40$ : TRY AGAIN 

#B1T1,4(R2) SET BIT1 IN STAT3 
: CONTINU 

#B1T15,(R2) ;SET BIT 15 IF CRAM 


sASK WHICH LINE UNIT 
PC, INTTY GET REPLY 
#21,R3 i 


WwW 
™~m 


AALKEK 
ANVOANVSO 


e 


RE 


30$ 

#22,R3 ae 
1$ 

#116,R3 im 

32$ 


Se 
Sing 


:I1F NOT A 1,2 OR N TYPE °'?"" 
16$ TRY AGIAN 

#BIT12, (R2)+ SET BIT 12_IN STAT2 IF NO LU 
(R2)+,(R2)+ POP OVER STAT2 AND STAT3 


33 

#B1T13, (R2) :SET BIT 13 IN STAT2 IF M8202 
sASK IF LOOP=BACK IS ON 

PC, INTTY ‘GET REPLY 

#131,R3 :Y 


17$ 
#116,R3 iN 
18$ 


BVRRVSRVERL 


:IF NOT Y OR N TYPE °'?"' 
30$ TRY AGAIN 
_ : TURNAROUND IS CONNECTED 


#B1T14,(R2)+ NO TURNAROUND 


a ad eh cee cad ed ad ae ed ed ae ed ed od ae ee ed ce ced eed eed ee ed eed eed 
WMV ds BS 
SNOALO 


SRVNSKERVS 


0 
1 
TEMPS, (R2)+ STORE SWITCH PAC IN MAP 


a se ee ec ee ee ee ce ee ee me De me a ee cee ee we ee ee ee me ee ee eh ed ed ed eed eed eed 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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CZDMEC.P11 11-SEP-78 


oO 
— 
> 
nN 
Oo 


ee Neg AG 
RRO 


1 

001254 MOVB TEMP4, (R2)+ sSTORE SWITCH PAC IN MAP 
(R2)+ :POP OVER STAT3 

001252 : q ops rs COUNT 


:BR_IF DONE 
010612 J i$s ; JUMP IF NOT 


011702 ; CONTINUE 
160000 7$: SET FOR FIRST ADDRESS TO BE TESTED 
011774 #6$ 044 SET FOR NON-EXISTANT DEVICE TIME OUT 
: sCLEAR SELO 
:1F DMC11 DMCSR S/B 0 
:1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DMC11 
000006 CLEAR SEL6 
000006 :1F DMC11_ THEN DMRIC S/B =0! 


BN 3$ 3;BR_IF NOT DMC11 
002000 #B1T10,(R1) SET ROMO 
000004 4(R1) :CLEAR SEL4 
125252 MOV #125252,6(21) WRITE THIS TO SEL6 
020000 © If: 


#B1T13,(R1) WRIT L 
125252 MP wiesede,4(R1) SWAS IT WRITTEN? 


:1F NO IT _IS NOT CRAM 
> aaaaiatmea 7SET BIT15 IF CRAM 


MNMNNrror 
Wes & S¥ 
AMANO 


Be 


2089 
2090 
2091 
2092 
2093 
2094 
2095 
2097 
2098 
2101 
2102 
2103 


[aS] 

—_ 

oO 

wi 
WWIWAWIWAIANIG MINIM 
BEEBRRN SASSY 


SET ROMI 
PUT INSTRUCTION IN SEL6 
ah acai (MICRO PROC PC TO 0) 


#B1T10, (Ri : 
#016472,6(R1)  :1S IT LOCAL CROM? 
#016461.6(R1) 


177777 #-1,6(R1) 
22$ 


NS VSaskRSad 


‘NOT A DMC 

23$: BIS #B1T1,6(R2) ‘SET BIT 1 IN STAT3 

-AT THIS POINT IT IS ASSUMED THAT R17 HOLDS A DMC11 CSR ADDRESS. 
52$: MOV R1, (R2)+ :STORE CSR IN CORE TABLE. 

001000 15$: #BIT9,(R1) [CLEAR LINE UNIT LOOP 

000004 4(R1) [CLEAR PORTS 

122113 000006 #122113,6(R1) | :LOAD INSTRUCTION (CLR DTR) 

000400 #B1T8, (R1) =CLOCK INSTRUCTION 

021264 000006 #021264,6(R1) LOAD INSTRUCTION 

000400 WRITS, (R1) =CLOCK INSTRUCTION 

000377 000004 MPB =. #377,,4(R1) :IS IT ALL ONES? 


000002 


.+10 IF NO 
#BiT12, (R2) [IF YES, NO LINE UNIT, SET STATUS BIT 
000004 #B1T1,4(R1) :1S SWITCH A ONE? 
.+ “BR IF M8201 
#B1T13!BIT14,(R2) ;M8202 ASSUME CONNECTOR 
$ : CTOR ON) 


3 CONNE 
000004 #>'T3,4(R1) 1S MRDY SET 
208 :BR IF M8201 NO CONNECTOR (ON LINE) 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee Dd ed ed ed ed ed aa a ed ed ed ed = 8) od = od) 
ws Ss SY Ss SS SS SS SS SS SY SY YY a kd ad ad a 2 ad ed od od od od 2 = = 02 od) 9 2d 8 od 2 2) 2 2 6 =) = 
Ww 
Vi 


04 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
oh 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 


MIPININPINGNANNININNNININYNONYNINININININININPONGPNOAMUNINNNNNNNNonoforg 
PP EPP EPP EE EE EEE LEE PEP EYP PEEP SEP PEP PPP PPP yp: 


MUMMIES EERE HR KRESS 


SNSEAKVSRELV LSS 
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012761 000100 000004 #B1T6,4(R1) ZLOAD PORTS 
122113 000006 MOV wiceits, 6(R1) [LOAD INSTRUCTION 
000400 #B1T8,(R1) [CLOCK INSTRUCTION(SET DTR) 
[LOAD INSTRUCTI 


021264 000006 MOV res AE ae ® tee 
000400 CLOCK INSTRUCTION(READ MODEM REG? 
000010 000004 2 mBIT3. “EER SIS MRDY SET NOW? 


2 7BR_IF_NO CONNECTOR 
040000 5 gg - (R2) SET STATUS BIT FOR CONNECTOR 


[POP POINTER 
021324 000006 #021324,6(R1) PUT INSTRUCTION IN PORT6 
001400 MO #81T9'BIT8,(R1) :PORT4_LU 15 

000004 (R1) :STORE DDCMP LINE # IN TABLE 
021344 000006 #02134 :PORT6_INS TRUCT ION 

001400 ! CLOCK” INSTR 

000004 STORE BM873 ADD IN TABLE 
:POP OVER STAT3 

=CLEAR ROMI 

;UBDATE DEVICE COUNTER 

SARE MAX. NO. OF DEV FOUND? 


aon MIVIMAVIUIUAI 
PISSINESALEG 


BARRIS 


001310 


AARFLE, 
ALANS 


SEL 6 
#19,R1 S UPDATE CSR POINTER ADDRESS 
#154000,R1 
13% :BR_IF DONE 
2$ ; JUMP IF NOT 


DMACTV 

DMNUM WERE ANY DMC11°S FOUND AT ALL? 

5$ ERROR AUTO SIZER FOUND NO DMC11°S IN THIS SYS. 
DMNUM ,R1 

R1,SAVNUM SAVE NUMBER OF DEVICES 


DMACTV dyes ACTIVE REGISTER OF DEVICES. 
pee SET THE BIT 
4$ :BR_IF MORE TO GENERATE 
46,044 RESTORE TRAP VECTOR 
DMACTV,SAVACT ;SAVE ACTIVE REGISTER 
VE CMAP :GO fay THE VECTOR NOW. 
-MERR2 ; [NOTIFY OPR THAT NO oe er S FOUND. 
RO SMAKE DATA LIGHTS ZERO 
>STOP THE SHOW 


BLIKALAVTSS 
Re S:5 


Sa 
MALO 


Oo 
3S 


moe 
rs NPVIAS 
AROKRN 


NNNNNNNN 
Vi XS 
OnMown 


ARR 


cal al cael cal al cel ce el cl ca el a cl cl cal a ag a ae al a ct cl eh ce al cl cl cl cl cel lh el cl cl cal cl cl cl cal cl el 
NNN 
Ss 
MOO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ae ee De ce cD DD ee ee ed ed ed eed ed 


—“~ DISABLE CONT. SW. 
#14$, (SP) SENTERED BY NON-EXISTANT TIME-OUT. 
RETURN TO MAINSTREAM 


MONMEMNIMNN INN 
a ee ee oh gh eh oh pe 


000001 

1 002 
012006 001256 
012010 032737 : a #SWO0, STRTSwW 


MY 
ee § 


2.2 


= SET IOT TRAP PRIO TO 7 


SBELERRAVLSSEER 


NOM NM NMNPNNNoNy 
Ni eS St SS 


INTER 
#300,R0° S FLOATING VECTORS START HERE. 
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012701 000302 :PC OF IOT INSTR. 
1$: Shi ol io ior VECTOR AREA 
000004 ITH IOT 


SAD 2 10° RO +R1 
001000 
1 :BR IF MORE TO FILL 
001306 001246 MOV DMACTV, TEMP1 :STORE TEMPORALLY 
001246 2$: TEMP1 ;BRING OUT A BIT 
5$ BR IF ALL DONE 
000012 #12,R4 2R4_1S_ INDEX REGISTER 
012252 177776 wom SET PS TO 7 
000200 000004 #200,4(R1) 
SET ROMI 


001000 #BIT9,(R1) 
121111 000006 #121111,6(R1)__ :PUT INSTRUCTION IN PORT6 
001400 > ‘ghchamisas teahinle FORCE AN INTERRUPT 


eSTALL 
BN “ FOR TIME TO INTERUPT 
000002 #2 ,R4 :GET © LOWEST PS LEVEL 


6$ 0 

012252 177776 MO BRLVI (R4) PS ZMOVE NEXT L LOWER LEVEL IN PS 
005300 000002 6$: #5300,2(R2) ZNO_INTERUPT ASSUME 300 AT LEVEL 5 AND FIX DMC11 LATER 
000010 ; #10,R2 ;POP SOFTWARE POINTER 

BR 2$ KEEP GOING 
000002 4$: (SP) ,2(R2) :GET VECTOR ADDRESS 
000007 #7,2(R2) =CLEAR JUNK 
012254 BRLVL+2(R4) , .R5 :GET BR LEVEL OF DMC11 


: SHIFT wit 33; & ‘—~ 
R5 :TO THE LEFT FOR THE 


oO 
ENRRVESRARRVSR 


VIM & 


NERV 


012 
O12 
012 
O12 
O12 
012 
Ole 
012 
012 
012 
O12 
012 
012 
O12 
012 
012 
Ole 
012 
2 


200 
2206 


ot SS SS SS 2s SH SS YS YS 


~ 


Ae [STATUS TABLE 
170777 #170777 ,R5 : CLEAR UNWANTED BITS 
000002 R5,2(R2) ;PUT BR LEVEL IN STATUS TABLE 
MP (SP)+, (SP)+ :POP IOT JUNK OFF STACK 
012172 MO #33, (SP) ;SET FOR RETURN 


ALL DONE WITH *‘AUTO SIZING'' 


000340 


105777 : @TKCSR WAIT FOR DONE 
100375 BP ~% 


@TKDBR ,R3 :PUT CHAR IN R3 
aTPCSR tWAIT UNTIL PRINTER IS READY 


74 
R3,aTPDBR sECHO CHAR 
oi ES MASK OFF LOWER CASE 
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petkeeankknkkkkekkKkenKekhek TEST ] cere eee eee eee eee eek e ee keee 
>*OUT CONTROL REGISTER READ/ONLY TEST 

:*DO_A MASTER CLEAR, VERIFY a ALL READ/ONLY 

>*BITS ARE IN THE CORRECT STATE 


TITTLE T TTT TTI TTT LI TTLITELT LTTE TELE LETTE TTL Tete 


012320 012737 000001 001226 TST1: f& #1, TSTNO 
012326 012737 012374 001216 MO #TST2,NEXT 
:R1 angel. BASE DMC11 ADDRESS 


167044 @DMCSR zCLEAR SE 

000011 MOV #11,R2 E R2 FOR TYPEOUT 
ROMCLK SREXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004 !<20*11> ;PORT4 LINE UNIT REG 11 

000004 MOV 4(R1) RS [PUT ‘FOUND’ 

000054 #54 ,R4 ; CLEAR UNKNOWN BITS 

000020 #20,R5 sPUT 'EXPECTED’’ IN RS 
MPB R5,R4 31S OUT READY SET? 

1$ BR I 
ERROR IN LU 11 
012372 : SCOPE THIS TEST 


ptktkkenkkakkkkkeeeeekekeweh TEST 2 cere rere eee eee kk hhh ik 
>*IN CONTROL REGISTER READ/ONLY TEST 

:*DO_A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

>*BITS ARE IN THE CORRECT STATE 


SRE REAR EERE REE ERE ERE EERE ERE EKER EEE EEE ERE E 


012374 2737 000002 S72: ff #2, TST 


2 TSTNO 
012402 012442 AMTST3 NEXT 
+H CONTAINS on DMC11 ADDRESS 
012410 000012 #12,R2 SAVE R2 FOR TYPEOUT 
104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004 !<20*12> ;PORT4 LINE UNIT REG 12 
000004 MOV 4(R1) ,R4 3PUT ‘FOUND’ IN R4 
000017 #17,R4 :CLEAR UNKNOWN BITS 
R5 ;PUT “EXPECTED IN RS 
Faas ARE “ALL BITS CLEARED? 


;BR 
sERROR IN LU 12 
012440 $ : SCOPE THIS TEST 


ptktaekkeneneeeeedeeeeanewee TEST 3 at aee nee e ee eee eee eee eee ee 
:*MODEM CONTROL REGISTER READ/ONLY TEST 

:*DO_A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

:*BITS ARc IN THE CORRECT STATE 


STARR REE REE ERER EAR ARERR EERE EEE Ee 
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Nw 
Ww 
—_ 
Ww 


; TEST 5 


012442 : MOV #3, TSTNO 
012450 MOV ATST4 NEXT 


012456 MSTCLR 
MOV #13,R2 PEOUT 
ROMCLK [NEXT WORD IS INSTRUCT ION, ROMCLK PC=5304 
A acing «oS ;PORT4 LINE UN REG 13 
wns Re ve zu . 


CLEAR ONRNOMN ITS 
4100/88 sPUT ‘EXPECTED'’ IN R5 
R5,R4 ARE RING, DTR, AND MODEM READY SET? 
1$ 7BR IF YES 
sERROR IN LU 13 
012512 : SCOPE THIS TEST 


nororore 
WWUAWG 


:R1_ CONTAINS BASE DMC11 ADDRESS 
:MA AR_DMC11 


pxkkwkkekkkkkkekkeeeKkkeeKaKee TEST 6 eee eee ee eee eee eee eee eek ik 
> *MAINTENANCE REGISTER READ/ONLY TEST 

:*DO_A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

:*BITS ARE IN THE CORRECT STATE 


CTA RR ERE AEEEEEEREEREREEEREEEEREREREEEEEREAREKE EERE EK 


012514 012737 000004 : -TST 
012522 012737 012616 ATSTS NEXT 


MSTCLR 
000017 ~M #17,R2 


:RI CONTAINS BASE DMC11 ADDRESS 
E “y B34, 


TYPEOUT 
T WORD o's INSTRUCTION, ROMCLK PC=5304 
021006 <2017> PORTS LINE UNIT REG 17 
R1) ,R4 ;PUT ‘FOUND'" IN R4 
BIC #206,Re ;CLEAR_ UNKNOWN BITS 
V PUT ‘EXPECTED’* IN R5 


MO #51,R5 : 
BIT #B1T13,STAT1 1S LU AN M8202 OR M8201? 
BNE :BR IF M8202 

3 CTOR??? 


BIT #B1T14,STAT1 

BNE 3$ BR IF M8201 WITH CONNECTOR 

BIC #40,R4 2MASK OFF SI BIT IF M8202 OR M8201, NO CONNECTOR 
BIC #B1TS.R5 :SI BIT IS UNKNOWN 


CMPB R5,R4 zARE SI AND ICIR SET? 
BEQ 1$ BR IF YES 

HLT 2 sERROR IN LU 17 
SCOPE SCOPE THIS TEST 


peeeekeenaneeaaeeeeeeeeeeene TEST 5 eakarankeaeeee eee eek eee ee 
"LINE UNIT REGISTER WRITE/READ TEST 

*SET BITS IN LU REGISTER 12, VERIFY IT IS SET 

oo BITS IN LU REGISTER 12, VERIFY IT IS CLEAR 


TERRA AE. CHARA AAAEAAAAARARAARAARARAEEAERERAAEEEHREERERKEKRKERR ERS 
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: TEST 5 
TSTS: f #5, TSTNO 
MOV 


#TST6,NEXT 
#1$,LOCK 


ooo 


:R1 CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR 11 
#12,R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 
#40,4(R1) LOAD ay 
sNEXT P ae INSTRUCTION, ROMCLK PC=5304 
2 SET alts IN LU-12 
oo ae WORD IS INSTRUCTION, ROMCLK PC=5304 


:PUT "EXPECTED" IN R5 
PUT ‘'FOUND'' IN R4 


ith 
NS 


-0oO0—-—- 00 — 
fo? a ereey. 
MIN ENS he 


R 


#60,R5 
5(R1) RG 
#337 RG 
R5 


o 


g 
RR 


. BIT 5 IS NOT SET 
: SCOPE’ SUBTEST (SWO9=1) 

012716 #3$,L0CK SNEW SCOP1 
000004 : 4(Ri) 14 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
[CLEAR BIT 5 IN LU-1 
wen WORD 1S INSTRUCTION, ROMCLK PC=5304 
:PUT EXPECTED" IN R5 
:PUT ‘FOUND’ IN R 


CLEAR UNWANTED BI TS 


333 ee CLEAR? 
BR IF 


zERROR, BITS IS NOT CLEAR 
SCOPE SUBTEST (SwO9=1) 
SSCOPE THIS TEST 


peenkaekakkkkeekeeeeakanaeen TEST :. RRERKRRAREREERAERERAKREEE EEE 
*LINE UNIT REGISTER WRITE/READ TEST 

:*SET BIT1_ IN LU REGISTER 17, VERIFY IT IS SET 

ee BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR 


LRRRRERRRERRREREERERRARORRERERERERERE EERE RR RRR RRR REE 


#1$,LOCK 
:R1_ CONTAINS BASE DMC11 ADDRESS 
SMASTER CLEAR DMC11 
#17,R2 sSAVE REGISTER ADDRESS FOR TYPEOUT 
#1,4(R1) : LOAD PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SET BIT1 IN LU-17 
ng WORD Is" INSTRUCTION, ROMCLK PC=5304 
:PUT + EXPECTED" IN RS 


SOCoOCCoOO COO 
oo>~-30O0O> COO 
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000005 MOVB = 5(R1) Pi :PUT ‘‘FOUND'’ 
000376 #376 = CLEAR UMGANTED BITS 
MPR She ‘IS BIT1 SET? 
:BR IF YES 
SERROR, BIT 1 IS NOT SET 
: *SCOPE SUBTEST (SWO9=1) 
013056 001220 MOV #3$,LOCK “NEW SCOPT 
000004 3$: 4(R1) [LOAD PORTS 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
CLEAR Bt BIT 1 IN LU-17 
4 WORD IS INSTRUCTION, ROMCLK PC=5304 
[PUT ‘EXPECTED'’ IN RS 
:PUT ‘FOUND'’ IN 
=CLEAR UNWANTED BITS 
:IS BIT1 CLEAR? 


BR IF YES 

zERROR, BIT1 IS NOT CLEAR 
7SCOPE SUBTEST (SWO9=1) 
SCOPE THIS TEST 


—_ 
SURISR 
Ww 


SBR 


pekarkakkekekakkenaeeeeeKee TEST 7 exer cece eee eee eee eee hk 
7*LINE UNIT REGISTER WRITE/READ TEST 

:*FLOAT A 1 THROUGH LINE UNIT REGISTER 13 

:*FLOAT A 0 THROUGH LINE UNIT REGISTER 13 


CTR EAE RERERREEEREREREEEREREREREREREEEERE EERE 


#7,TSTNO 
#TST10,NEXT 
#64$ ,LOCK 
:R1_ CONTAINS BASE DMC11 ADDRESS 
a sMASTER CLEAR DMC11 


#13,R2 SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #1,R0 :START WITH BIT 0 


MOV RO,4(R1) :PUT PATTERN INTO PORT4 
BIC #257,4(R1) SCLEAR UNWANTED BITS 
ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122100!13 :MOV DATA TO IBUS REGISTER 13 
ROMCLK SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
21005 !<138202 “READ FROM IBUS REGISTER 13 
R5 : ED IN RS 

R68? R5 
5(R1) RS 
#257 Re 


R5,R4 
65$ 
3 


Wh 
MBO 
ooo 


MNS & 
MMANOS 
SRE OSs 
RNR 2 


oo-- 


te ad ed ed et ed eee td od 
=" 
— 


WWAWWANIAWNNANANAW WW 
SAVERS 


RENSS 
SESREse 


RORGRRORGOAS 


RO 
65$ 
013244 #67$,LOCK 


8 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


BERNE 
5 


we) 
NM 
Oo 
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000001 MOV #1,RO0 7 START WITH BIT 0 
: OM RO : CHANGE TO FLOATING ZERO 


000004 RO,4(R1) ase! PATTERN INTO PORT4 
000257 000004 #257,4(R1) CLEAR UNWANTED BITS 
“NEX XT WORD IS INSTRUCTION, ROMCLK PC=5304 
‘MOV DATA TO 1BUS REGISTER 13 
ROMCLK *NEXT Is g tei tel ROMCLK PC=5304 
21005!<13420> “READ F R 13 
R5 : TED IN Reis 


4283 R5 
5(R15 RG 
here 


Rag 
3 
RO 


RO 
69$ ; 
7SCOPE THIS TEST 


petkakankkkkkkkkeeakkaeeaeee TEST 11 sean RR RR Kk 
S*LINE UNIT REGISTER WRITE/READ TEST 

s*FLOAT A 1 THROUGH LINE UNIT REGISTER 14 

> *FLOAT A Q THROUGH LINE UNIT REGISTER 14 


: SRR 


TEST 10 


001226 TST10: fh #10,T T$TNo 
001216 MO #TST11, NEXT 


V 
001220 #64$ ,LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
MOV #14 ,R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #1,R0 :START WITH BIT 0 


RO,4(R1) :PUT PATTERN INTO PORT4 
ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=5304 
122100:14 SMOV DATA TO IBUS REGISTER 14 
:NEXT WORD eh 


013326 
01 


> ado 


a5 


S INSTRUCTION, ROMCLK PC=5304 
21005! <14420> :READ FROM IBUS REGISTER 
RO.R5 ;PU TED IN R5S 


5(R1) .R4 
R5 ,R4 


Seok 
SS SS ena oe 


_—— 
RSS 
_—=Ww 


—=—0O0——-—-0 CO COO 


S 


CLEAR CARRY 
SHIFT BIT IN RO 
64$ :1F RO=0 THEN DONE 
001220 NEW SCOP 
mo #1,R START WITH BIT 0 


So 
KREEEEEEEE SY 
SNSRRNSERS 

s 


sus 
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EEELEEE 
g Srusars 


013502 
013510 


013516 
0135 


013542 


mM 4 
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69$: 
67$: 


012737 
012737 


000012 001226 TST12: 


013606 001216 


COM RO :CHANGE TO FLOATING ZERO 


RO,4(R1) zPUT PATTERN INTO PORTS 
ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122100: 14 [MOV DATA TO IBUS REGISTER 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
21005! <14420> “READ F STER 14 
: TED IN R5 


te 

68s 
SWO9=12 

RO * CHANGE TO FLOATING 1 
LEAR CARRY 


3¢ 
RO : SHIFT BIT IN RO 
69$ F RO=0 THEN DONE 
: SCOPE THIS TEST 


pitantKkkakaekkearakxKneKe TEST 1] exec eee eee eee eee eee eee ek 
>*SWITCH PAC TEST 

>*THIS TEST READS SWITCH PACA1 

>*THIS SWITCH PAC CONTAINS THE DDCMP LINE # 


STREAK 


; TEST 11 
MOV =: #11, TSTNO 
MOV =: #TST 12, NEXT 
:R1_ CONTAINS BASE DMC11 ADDRESS 
ZMASTER CLEAR DMC11 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SPOTL US 
PUT “EXPECTED IN RS 
:SW OK? 
:BR IF YES 
ZERROR, SWITCH PAC READ ERROR 
SCOPE THIS TEST 


petkkekeekeeki eet TEST 12 cance eee eee eee eee eee keke 
>*SWITCH PAC TEST 

Z*THIS TEST READS SWITCH PAC#2 

2*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 


SoHE CEO SSIES ISCO OUOOSIIOIE COO OOrEUDUriiiiiittn 


TEST 12 


Mov #12, TSTNO 


MOV —s«#TST13, NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR DMC11 
ROMCLK SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
621344 SPORT4_LU16 


SEQ 0051 
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000004 MOV 4(R1) ,R4 ;PUT 'FOUND'" IN 
001371 STAT2+1,R5 PUT ‘EXPECTED’ tN RS 
R5,R4 >SW OK? 


2BR IF YES 
31 ERROR, SWITCH PAC READ ERROR 
:SCOPE THIS TEST 


eet ant Ge a TEST 13 seeaanankaaannanankeaneneee 
2*LINE UNIT CLOCK TEST 

;*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 

*(Bl! 1 IN LU=17) IS WORKING 


SERRA RERRERARAAAAARARAEEAAAEREAAAARAEAERRREREERRREERREREE 


: TEST 13 


012737 00001 : MOV #13, TSTNO 


012737 MOV #TST14,NEXT 

:R1 CONTAINS BASE, Dc 11 ADDRESS 
104412 MSTCLR [MASTER CLEAR 
005037 CLR TEMP [PREPARE FOR A yi 


104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 021364 SPORT4_LU=17 

032761 #2,4(R1) 71S CLOCK eit SET? 
001004 2$ BR IF 


ak aah aa cad a ad aed oh ae ed 
WN —OVDONOAULWH-O 


26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
2 
262 


TEMP :DELAY 

1$ ;DELAY FINISHED? 
& sERROR BIT IS STUCK CLEAR 
TEMP [PREPARE FOR DELAY 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
#2,4(R1) 1S CLOCK lt CLEAR? 
4$ “BR IF 


TEMP : 
3 ‘BR if DELAY NOT DONE 
[ERROR BIT IS STUCK SET 


LEAKE EERE RRR KKK TEST 1G cee eee eee ee RRR 
:*OUT DATA SILO TEST 

:*SET SOM AND LOAD OUT DATA SILO 

>*VERIFY THAT OCOR SET, INDICATING THAT THE 

>*CHARACTER IS AT THE BOTTOM OF THE OUT SILO 


To HIG AAS AOS OIIEIIISIOICISI ICICI OI OSS IOIOIISI IOI IOS ISI i itn 


: TEST 14 
Mov #14,TSTNO 
MOV #TST15,.NEXT 
:R1_CONTAINS BASE DMC11 ADDRESS 


MSTCLR 
MOV #21111, (R1) LOOP 
MOV #1,4(R1) *LOAD PORTS WITH BITO 
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sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


SNEXT WORD i. INSTRUCTION, ROMCLK PC=5304 
; LOAD mut DATA SILO 

‘WAIT FOR OCOR 

;SAVE ADDRESS FOR TYPEOUT 

:NEXT WORD S INSTRUCTION, ROMCLK PC=5304 
PUT 'FOUND'' IN R4 

; CLEAR UNWANTED BITS 
;PUT ‘EXPECTED’’ IN RS 
31S OCOR SET? 

;BR IF YES 


RURVEVE 
RYRSORSR 


—© 
FSNAORK 


oo-—-o- eS SS 


FoR 
eRe 


RR 


SCOPE THIS TEST 


LRRARRRERAEREEREREREERRRR KR TEST 15 eee eee eee eee eee 
: *DDCMP TEST OF RTS AND OUT ACTIVE 

:*SET SOM AND LOAD OUT DATA SILO 

: #SINGLE STEP 5 DATA CLOCKS, VERIFY 

*THAT RTS AND ACTIVE ARE SET 


FARA ERERERKRERREREREREKEKEREREREREREARREREEREREREREE ER 


: TEST 15 
014006 000015 : MOV #15,TSTNO 
014014 014144 MOV #TST16,NEXT 
zR1 CONTAINS BASE DMC11 ADDRESS 


014022 104412 MSTCLR sMASTER CLEAR _DMC11 
0 004000 MOV #B1T11,(R1) - SET LINE UNIT LOOP 
000001 MOV #1,4(R1) ;LOAD PORTS WITH BITO 
Ser soe IS INSTRUCTION, ROMCLK PC=5304 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DATA SILO 


:WAIT FOR OCOR 
2 sCLOCK DATA FOUR TIMES 


nN 


110 
026374 JS PC ,,OCOR 
000002 


000011 MOV #11,R2 ‘SAVE ADDRESS FOR TYPEOUT 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


LU 

000004 mo RG :PUT CFOUND’” IN RG 

000257 257,R :CLEAR UNWANTED BIT 

000120 R PUT EXPECTED IN RS 
R5,R :1$ ACTIVE SET? 

:BR IF YES 


VENA ROS 
OW SS 
NMUNOL-—fk 


RUF 
NEN 
Re 


BeRegses 


58 


em WU 


3; SAVE Seis FOR TYPEQUT 
NEXT wiry S INSTRUCTION, ROMCLK PC=5304 


:PORT4 _L 
SPUT ERPECTED_IN R4 

CLEAR UNWANTED BITS 

:PUT TEXPECTED'’ IN RS, RTS SHOULD BE SET 


ii 


yor oRon 
SSsee 
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001401 BEQ 2$ :BR IF YES 
104005 HLT 5 [RTS ERROR 
104400 ; SCOPE :SCOPE THIS TEST 


LRA ERIK TEST 16 eee eee eee ee eee eee eee ehhh 
2 *TEST OF OUT CLEAR 
;*SET SOM AND LOAD OUT DATA SILO 
:*SINGLE STEP DATA CLOCK, SET OUT CLEAR 
;*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED 


: SRR EERE 
: TEST 16 
Mov #16, TSTNO 
MOV #TST17,NEXT 
7R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ‘MASTER CLEAR DMC11 
MOV #B1T11,(R1) :SET LINE UNIT LOOP 
#1,4(R1) [LOAD PORT4 WITH BITO 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


T_SOM 
NEXT WORD ii. —e ROMCLK PC=5304 


014144 
014152 


SS 3 3 OO — oo 
ME NMr las las) 
SS = = A 


™m 
Nm 


NER ENENMH SME NN ONS 


o--— = 


PC,OCOR ; 
* #BIT7,4(R1) 


RR 


T4 
NEXT WORD IS_ INSTRUCTION, ROMCLK PC=5304 
SET OUT CLEAR 
1 :GIVE A TICK TO CLEAR RTS 
#17,R2 ; SAVE oe it A TYPEQUT 
;NEXT D_IS INSTRUCTION, ROMCLK PC=5304 


we 
) 
BUH RBUNOR eS Roan NN 


* 
= 


1 
0 
1 
1 
104 
012 
104 
0 
0 


=—N 


4(R1) ,R4 
#357 ,R4 
R5 


~Se 
NOs 
SRE 


HS oon CLEARED? 
BR IF YES 


:SAVE ADDRESS FOR TYPEOUT 
NEXT ery S INSTRUCTION, ROMCLK PC=5304 


PORT4_L 
;PUT ERECTED IN me 
CLEAR UNWANTED BITS 
{PUT wees IN R5, RTS SHOULD BE CLEARED 


‘iz F 
BR IF YES 
“RTS ERROR 


: SAVE ADDRESS FOR _TYPEOUT 
3NEX RTo LUT INSTRUCTION, ROMCLK PC=5304 


421) ,R4 :PUT "FOUND'' IN R4 
#BIT4S RS ONLY OUT READY SHOULD BE SET 


lelelelelelelelelelelele) lelelelele) 
——3 — 
HHRKRHKHKKKKKKRKKKSHK & 
VANSELVSHE 


Nonon- 
AWVOSNWNMO 
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CMPB R5,R4 +S Wort CLEAR? 
BEQ 3$ YES 
HLT 5 “ERROR ACTIVE NOT CLEARED 


SCOPE SCOPE THIS TEST 


pereankkeknkkeneeeeeeeKKeee TEST 17 exer a eee ee eee eee ee eee eek 
;*DDCMP TRANSMITTER TEST 
;*SINGLE CLOCK THE CHARACTER 0 
:*VERIFY EACH BIT moi te AS i 
ae y THE BIT_WINDOW (SI BIT) 
:*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


SARA REAR 
TEST 17 


000017 001226 TST17: f #17,TSTNO 
014524 001216 MO #TST20,NEXT 


oo 
=> 


7R1_ CONTAINS BASE DMC11 ADDRESS 
MA EAR _DMC11 


o- 
UR 


004000 MOV #B1T11,(R1) 
026526 PC ,OUTRDY 
000001 000004 MOV #1,4(R1) N PORTS 

T WORD IS INSTRUCTION, ROMCLK PC=5304 


ET 
000000 MOV #O,RS5___ = LOAD CHARACTER iN . Bs 5 TYPEOUT 
026526 PC,OUTRDY sWAIT FOR OUT-READY 
000004 R5,4(R1) ;LOAD PORTS W WITH CHARACTER 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 
026374 or :WAIT FOR _OCOR L SET 


R5,R2 ER IN R2 
000002 2 2 TICKS TO SET UP TRANSMITTER 

000001 : SHIFT NEXT BIT_IN THE WINDOW (SI BIT) 
RORB Re :SHIFY Sa be BIT IN TO CARRY 


> 
wR 


3 
3 
1 
1 
3 
1 
1 
0 
3 
6 
1 
1 
3 


_—— SS IO 
SoRRa=Se 
NS 


RYAN ANoORoQAa RS Qan NN 


C 2$ 
026342 PC,GETSI 
Ss 3$ 


: 


026342 


33 
8 


SERROR BIT WAS A MARK 


NEXT BIT 
:DONE YET? 


BR IF NO 

:CLOCK TRANSMITTER 14 MORE TICKS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SPORT4 LU=1 

sRTS SROULD BE CLEAR NOW 


IF 
“ERROR, RTS NOT CLEAR 
SCOPE THIS TEST 


SUINWWG 


RSAS 
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pektearrerkenceeteeeaneeeiee TEST 20 cere ee eee eee eee tee eek 
;*DDCMP_TRANSMITTER TEST 

:*SINGLE CLOCK THE CHARACTER 125 

:*VERIFY EACH BIT POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 

;*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


FEAR RRR EERREREREREKEE REE REREREERRERERREEEEE KERR 


5 Vest 2 
014524 012737 000020 001226 TST20: MOV #20, TSTNO 
014532 012737 014706 001216 MOV #TST21,NEXT 


MSTCLR 
004000 MOV: #BIT11, (R1) 
026526 PC ,OUTRDY 
000001 000004 MOV = #7..4(R1) 


:R1_ CONTAINS BASE DMC11 ADDRESS 
MAST EAR _DMC11 


PORT4 
NEXT 10 Is PINSTRUCTION, ROMCLK PC=5304 


E 
000125 MOV #125.,R5 — CHARACTER IN R5 nea TYPEOUT 
026526 PC ,OUTRDY sWAIT FOR OUT-R i 
000004 R5,4(R1) LOAD PORT4 WITH CHARACTER 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


026374 at 
MOV R5,R2 st C E 2 
000002 K, 2 :2 TICKS TO SET UP TRANSMITTER 
000001 2 SHIFT NEXT BIT_IN THE WINDOW (SI BIT) 
RORB R2 [SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BR IF CARRY CLEAR 


2$ 
026342 es TSI 


BR 3$ 
026342 : PC,GETSI 
C 3$ 


ery 
T IS A SPACE 
TERROR BIT WAS A MARK 


R3 :NEXT BIT 
000010 ;DONE YET? 
BNE 1$ :BR IF NO 
000014 CLOCK TRANSMITTER 14 MORE TICKS 
ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
21264 SPORT4 LU-13 
000040 000004 f eeirs., eRTS SROULD BE CLEAR NOW 


SERROR, "RTS NOT CLEAR 
;SCOPE THIS TEST 


Doo oreo TEST 2] sort it hk tk tent 
;*DDCMP_TRANSMITTER TEST 
*SINGLE CLOCK THE CHARACTER 252 
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:*VERIFY EACH BIT POSITION AS IT 


; *PASSES THE BIT WINDOW (SI BIT) 
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


po oa Bl ee Eh oo Bike os RE 
TEST 21 


014706 012737 000021 001226 TST21: 
014714 012737 015070 001216 


014722 


#21,TSTNO 
ATST22,NEXT 

:R1 CONTAINS ee ADDRESS 
004000 #B1T11,(R1) 
026526 PC ,OUTRDY 
000001 000004 V #1,4(R1) N PORTS 
eT SMT IS INSTRUCTION, ROMCLK PC=5304 


E 
000252 V #252, o "aaa CHARACTER IN RS FOR TYPEOUT 
026526 PC,OUTR WAIT FOR OUT-READY 
000004 RS, aR). LOAD PORT4 WITH CHARACTER 
NEXT en eita INSTRUCTION, ROMCLK PC=5304 


LOAD OUT 
026374 [WAIT FOR OFOR TO SET 
R3 : CLEAR BIT LOUNTER 
MOV . ;LOAD CHARACTER IN R2 
000002 ° 2 i TICKS TO SET UP TRANSMITTER 
000001 : ° SHIFT NEXT BIT_IN THE WINDOW (SI BIT) 
R2 ; SHIFT NEXT y Ay BIT IN TO CARRY 


2$ 
026342 PC,GETSI 
S 3$ 


BR 3$ 
026342 : PC,GETSI WW 
C 3$ :BR IF BIT IS A SPACE 
ERROR BIT WAS A MARK 


C R3 NEXT BIT 
000010 :DONE YET? 
E 1$ ;BR 


BN IF NO 
000014 CLOCK TRANSMITTER 14 MORE TICKS 

R cL NEXT ure is INSTRUCTION, ROMCLK PC=5304 
000040 000004 Mu ogiTS 481) ERY. SAUD BE CLEAR NOW 


;BR 
34 ERROR, RTS NOT CLEAR 
:SCOPE THIS TEST 


Dot oo oro ooomomiogk TEST 22 sooo OO ORR tint 
;*DDCMP_TRANSMITTER TEST 

2*SINGLE CLOCK THE CHARACTER 377 

s*VERIFY EACH BIT POSITION AS iy 

:*PASSES THE BIT WINDOW (SI BIT 

:*O0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


: RRR, CHAAR AREER EERE RARE 
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oO 
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11-SEP-78 


$35 oo 
wR 


oO 
We —AWO] SAW — NW 


_——3§ © 
NRO 


026374 


2358 
ov 
==38 


000002 
000001 


2 43 O 

o 

Behe 
NYIRNVMUINIW NO & A NUAR BASIN ON 


N 
W 


026342 


SO 
¥ 
& 


026342 


000010 
000014 


000040 000004 


7 900023 001226 
7 015460 001216 


TST23: 


TEST 22 


#22,TSTNO 

ATST23,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MA AR_DMC11 


#B1T11,(R1) 
PC ,OUTRDY 
#1,4(R1) 


N PORT4 
xD IS INSTRUCTION, ROMCLK PC=5304 


E 
#377, i p= CHARACTER in R5 FOR TYPEOUT 
PC,OUTR WAIT FOR OUT wy 
‘, ACR) LOAD PORT4 WITH CHARACTER 

:NEXT rg IS_ INSTRUCTION, ROMCLK PC=5304 


PC,OCOR 
R3 


;LOAD C 

32 TICKS TO SET UP TRANSMITTER 

SHIFT NEXT BIT _IN THE WINDOW (SI BIT) 

: SHIFT NEXT SOFTWARE BIT IN TO CARRY 
CARRY CLEAR 


I 
OR BIT WAS A SPACE 
WITH TEST 


[GET THE WINDOW 
7BR IF BIT IS A SPACE 
ERROR BIT WAS A MARK 


sNEXT BIT 
;DONE YET? 


:BR_IF NO 

:CLOCK TRANSMITTER 14 MORE TICKS 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LU=13 

3RTS SROULD BE CLEAR NOW 

SBR IF YES 

ERROR, RTS NOT CLEAR 

:SCOPE THIS TEST 


pktkktakkakkerketeeren ete TEST 23 cece eee eee ee eee eee kkk kh 
: *DDCMP yg ye TEST 

= *S INGLE CLOCK A BINARY COUNT PATTERN 

;*VERIFY EACH BIT POSITION AS IT 

2 *PASSES «i BIT WINDOW (SI BIT) 

7*0N AN ERR R3 CONTAINS BIT POSITION OF FAILURE 

z AND RS CONTAINS THE CHARACTER THAT FAILED 


TERRA ERAEEAEREAAEEAERAREEAAEEEEAERAAEEEAAEEREREREEREER EE 


Mov #23, TSTNO 
MOV ATST24,NEXT 


SEQ 0058 





CZDME_ MACY11 tS” og 


CZDMEC P11 
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S SRRGSRENRS 
Sy =—0O0 -WwWw-— 
NVM VIPIWUINO & 


004 
10 
104006 
000404 
004 

04 


11-SEP-78 
12:38 


904000 
026526 
000001 


026526 
000004 


026526 
000004 
026374 
000002 


000001 


026342 


026342 


000010 


026526 
000004 
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MSTCLR 
MOV 


#B81T11,(R1) 
R3 


R4 


R5 
PC ,QUTRDY 
#1,4(R1) 


PC ,OUTRDY 
R4,4(R1) 


R4 
PC ,QUTRDY 
R4,4(R1) 


2s 
PC,GETSI 
3$ 

6 

3$ 
PC,GETSI 
3$ 


R3 
#10,R3 
1$ 


R4 
PC ,OUTRDY 
R4,4(R1) 


R5 
#400,R5 
4$ 


7R1 ae BASE DMC11 ADDRESS 
MAST AR _DMC11 


COUNT 
CHAR TO BE LOADED IN SILO 
a. on aa CHARACTER CURRENTLY BEING SHIFTED OUT 
OR OUT-READY 


WAIT 
:SET ‘Bio IN PORTS 
T WORD IS PINSTRUCTION, ROMCLK PC=5304 
SET SOM! 
WAIT FOR QUT-READY 
[LOAD PORT4 WITH CHARACTER 
NEXT WORD + INSTRUCTION, ROMCLK PC=5304 


LOAD OUT DAT 
INCREMENT TO NEXT CHARACTER 
WAIT FOR OUT-READY 
;LOAD PORT4 WITH CHARACTER 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DATA 
WAIT FOR OCOR TO SET 
2 TICKS TO SET UP TRANSMITTER 
:CLEAR BIT COUNTER 
;LOAD CHARACTER IN R2 
SHIFT NEXT BIT_IN THE WINDOW (SI BIT) 
: SHIFT NEXT tun BIT IN TO CARRY 


ERROR BIT — A  thtwae 
:CONTINE WITH TEST 
[GET THE WINDOW 
7BR IF BIT IS A SPACE 
ERROR BIT WAS A MARK 


NEXT BIT 
DONE YET? 


:BR IF NO 

NEXT CHARACTER 

WAIT FOR OUT-READY 

LOAD PORT4 WITH CHARACTER 

NEXT WORD i INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DAT 

NEXT CHARACTER 

DONE YET? 


;BR IF NO 
:SCOPE THIS TEST 


petkatekakaraeeeeeeearene ii TEST 26 cea e eee eee eee ee eee eee keen 


>*DDCMP STRIP ere TEST 
S*SET LU 


LOOP, 


SINGLE STEP_5 SYNCS, 


>*VERIFY THAT IN ACTIVE DOES NOT SET 


2 MARSA AAAS LAR ARRSASEL ELE SESE ERE SE SERRE ERE RE EERE ES ES SR SRS RSE CEES 


TEST 2s 


SEQ 0059 
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015460 012737 
015466 012737 


015474 


000024 
015546 001216 


015544 


012737 
012737 


001226 TST25: 
001216 


12:45 PAGE 60 
BASIC RECEIVER TESTS 


001226 TST24: 


MOV 
MOV 


#24,TSTNO 
#TST25,NEXT 


4 CONTAINS BASE ~~ ADDRESS 
DMC 11 


MSTCLR os Met CLEAR 

MOV #B1T11,(R1) U LOOP 

MOV #12,R2- ‘SAVE LU REG FOR TYPEOU 

'' PC, SYNC SSINGLE CLOCK 5 SYNC CHARACTERS 


allt ee 54 
OMCLK ae Tn IS INSTRUCTION, ROMCLK PC=5304 


3;PUT e se I R4 
a UNWANTED BITS 

T "EXPECTED'’ IN R5 
at ACTIVE CLEAR? 


7BR IF YES 
SERROR ACTIVE IS NOT CLEAR 
SCOPE THIS TEST 


Dacor Orne Oieociioc:s TEST 25 soar otto toi ii i iti i ik it 
>*DDCMP IN ACTIVE TEST 

:*SET LU LOOP, SINGLE STEP t. ae AND A NON=SYNC (301) 

net THAT IN ACTIVE IS 


ee A RL RB 1 Nie Oe reo ED? 
TEST 25 


#25, TSTNO 

#TST26,NEXT 
:R1_ CONTAINS BASE DMC11 ADDRESS 
MA EAR DMC11 


MSTCLR 
MOV #B1T11,(R1) : OOP 
MOV #12,R2 : U REG FOR TYPEOUT 
‘- PC, SYNC : SINGLE CLOCK 5 SYNC CHARACTERS 
DATACLK, 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU12 
;PUT ‘FOUND'' IN R4 
: CLEAR wet ae | BITS 
“EXPECTED’' IN RS 
33S active ser? 


BR IF YES 
SERROR ACTIVE IS NOT SET 
SCOPE THIS TEST 


Ptktakkekkarkestee etait TEST 26 cee a eee eee eee eee eee ehh 
*DDCMP IN ACTIVE TEST 

:*SET LU LOOP, SINGLE STEP_1 SYNC AND A NON-SYNC (301) 

*VERIFY THAT IN ACTIVE DOES NOT SET 


STREAK EE 


TEST 2c 
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CZDMEC.P11 


3097 


WAWWWAWNWWNWNAANWAWNAWNWNAW WNW 
ia®) os ss ot 2 2 oO 
NS SONA ARWWAOSRURARAUSS 


WWANAWANAA 
eed cd cad ad cd ed eed 
MIMINNN?NoNPo 
CON OUIS WN 


Ww 
= 


po pp 
ASSES 


WWNWWNWNIAINWNANAWS 


WWWA 
ARWN OOOO 


015636 


015644 


015652 
015654 
015660 


015722 


11-SEP-78 
12:38 


000026 


001226 TST26: 
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015724 001216 


004000 
000012 
026412 
000024 


000004 
000277 


000027 
016014 
000012 
026412 
000034 


000004 
000277 
000100 


1$: 


MOV #26, TSTNO 
MOV #TST27,NEXT 
7R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR DMC11 
MOV #81T11, (R1) *SET L 
MOV #12,R2- : SAVE tut REG FOR TYPEOUT 
JSR PC, SYNC :SINGLE CLOCK 1 SYNC CHARACTERS 
DATACLK, 24 
OMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
O01 5a6 “PORT LU12 
MOV 4(R1),R4 [PUT ‘FOUND’ IN R4 
BIC #277 RG = CLEAR UNWANTE 
CLR :PUT ‘EXPECTED'' IN RS 
CMPB sR RG [IS ACTIVE CLEAR? 
BEQ 1 ‘BR IF YES 
HLT 4 TERROR ACTIVE IS NOT CLEAR 
SCOPE ‘SCOPE THIS TEST 


ptkeatekekekene eee eer er tiok TEST 07 ttt tik hhh ik thik 
; *DDCMP IN ACTIVE TEST 

*SET LU LOOP, SINGLE 4 . — AND A NON-SYNC (301) 

: *VERIFY THAT IN ACTIVE I 


wre ee I lM TS 5 SEI EN oN 


g 6TeSs! ef 
MOV #27,1S 
MOV #TST SO. NEXT 
:R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR vor ta CLEAR DMC11 
MOV #B1T11,(R1) :SET LU LOOP 
MOV #12,R2 SAVE LU REG FOR TYPEOUT 
- PC, SYNC 3 SINGLE CLOCK 2 SYNC CHARACTERS 
DATACLK, 34 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 :PORT4 LU12 
MOV 4(R1) ,R4 :PUT T FOUND" IN R4 
BIC #277 ,R4 : CLEAR ae: BITS 
MOV #BIT6,R5 “EXPECTED'' IN R5S 
CMPB R5,R4 3is active” SET? 
BEQ 1$ BR IF YES 
HLT 40 TERROR ACTIVE IS NOT SET 
SCOPE SCOPE THIS TEST 


petaakkkekakkakeketaneanene TEST 30D sean e ener e eee eee eee eek 
7*IN CLEAR TEST 
; #SYNC UP RECEIVER AND TRANSMIT A CHARACTER 
WAIT FOR IN RDY, THEN SET IN CLEAR 
1 SVERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 


FTAA RARER AREA ERE EREA EERE RARER AERA REE 


; TEST 30 


SEQ 0061 


—d 
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26 18130: ov. #30, TSTNO 


30 001 
MOV #TST31 NEXT 


0000 2 
016166 001216 


oo 
par 


:R1_ CONTAINS BASE DMC11 ADDRESS 
; TCLR sMASTER CLEAR DMC11 

000012 #12,R2 sSAVE REG ADDRESS IN R2 FOR TYPEOUT 

004000 #B1T11,(R1) SET LINE UNIT LOOP 

026560 y PC, CHAR [LOAD SILO WITH 3 5 


3 AND A _NON-SYNC — (301 
000053 : SINGLE CLOCK _ DATA 
000002 TIMER, 2 WAIT FOR INRD 
NEXT “tu 1 INSTRUCTION, ROMCLK PC=5304 


4(R1) ,R4 :PUT OUND"* Hay R4 

_ #357,R4 ; BITS 
#B1T4,R5 EXPECTED" IN R5 
| Saas :IS INRDY SET? 


40 ERROR, INRDY IS NOT SET 


#BI1T7,4(R1) LOAD PORT4 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SET IN CLEAR 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LU 1 

4(R1),R4 [PUT ‘FOUND’ IN R4 

4 ;CLEAR UNWANTED BITS 

:PUT ‘EXPEC "IN RS 

71S IN ACTIVE CLEAR? 


ERROR, IN ACTIVE IS NOT CLEAR 
:PUT *FOUND'' IN 

:CLEAR UNWANTED BITS 

sPUT ‘EXPECTED’* IN R5 

31S INRDY CLEARED? 


ERROR, INRDY IS NOT CLEARED 
:SCOPE THIS TEST 


ees 
UR 
WO] WW 


RNEN KLSKKASERR 
mL O-kuU SOUR NPN NN 


orm =30 
Nm 
we 3 
NVoN 
R seo 
> 


pekkhkkeeeeeeeeeeeeeeeeneeee TEST 3] xtaann eee eee eee eee eee eee 
*DDCMP BASIC RECEICER TEST 

*SYNC_UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 

>*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


2 TAA RRA AEE AERA AAARARAERRERAREREEAEERER ERR REE EER EEE 


; TEST 31 


MOV #31, TSTNO 
MOV #TST32,NEXT 

;R1 Yer BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #12,R2 7 SAVE REG om 5 IN R2 FOR TYPEOUT 
MOV #2'T11,(R1) SET LINE UNIT LOOP 
JSR PC,CHAR [LOAD SILO WITH 3 SYNCS 


AAYAASAAA AY 
SELKSRALLES 


Sopsnaees 
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gi 


0 THE CHARACTER 0 
000053 DATACLK, SINGLE CLOCK THE DATA 
000002 TIMER, 2 [WAIT FOR INRDY 

ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

021244 :PORTS 

MOV T ‘FOUND'' IN R4 

CLEAR UNWANTED 8 BITS 

"EXPECTED'’ IN RS 
31S INRDY Per? 
;ERROR, INRDY IS NOT SET 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SPORT4_ IN N DAT. 
:PUT 'F R4 
[PUT ‘EXPECTED'’ IN R5 
zWAS A 0 RECEIVED? 


ERROR, RECEIVED DATA IS WRONG 
SCOPE THIS TEST 


Dd ed ed ed ed ed 


RSRORSISRORIRIRSRORIRD 
~SDBNRARWW=O 


Pe gp geen peter TEST 32 xe aee ee eee eee e eee nek 
*DDCMP BASIC RECEICER TEST 

>*SYNC_UP RECEIVER AND SINGLE a. a CHARACTER 125 

Phen! THAT IN RDY IS SET, AND T THE CHARACTER WAS RECEIVED 


set eth 9 ED ell ce Rar, Pecreneen ctrl dhe ene 


TEST 32 
016302 000032 ¢ #32,TSTNO 
016310 MO #TST33,NEXT 
:R1_ CONTAINS BASE DMC11 ADDRESS 
016316 104412 sMASTER CLEAR 11 
016320 MOV #12,R2 sSAVE REG ADDRESS IN R2 FOR TYPEOUT 
#B1T11,(R1) :SET LINE UNIT LOOP 
PC,CHAR ;LOAD SILO WITH 3 7 
AND THE CHARACTER 125 
fer | CLOCK THE DATA 
SWAIT FOR INRDY 


DY 
ag INSTRUCTION, ROMCLK PC=5304 


;PUT 

; CLEAR ae te - ITS 

T FEXPECTED"” IN R5 
71S INRDY PSET? 

ERROR, INRDY IS NOT SET 


sNEXT WORD 3. INSTRUCTION, ROMCLK PC=5304 
PORT ON DAT 


R4 
PUT ‘EXPECTED’ IN R5 
sWAS A 125 RECEIVED? 


sERROR, RECEIVED DATA IS WRONG 


— 
* 


bh") 
SLRERR 
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016416 104400 2$: SCOPE SCOPE THIS TEST 


paakkkkkkaakkkeeaKeeeKkkeKeh TEST 33 ceaaaaee eee eee eee eee eee eke 
>*DDCMP BASIC _RECEICER TEST 

>*SYNC_UP RECEIVER AND SINGLE oe ne CHARACTER 252 

zsVERIFY THAT IN RDY IS SET, AND T THE CHARACTER WAS RECEIVED 


pt MR EB RG web ce bv ne: 


; Test 3 
MOV #33 ,TSTNO 
MOV AMTST34 NEXT 
:R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR 
MOV #12,R2 :SAVE REG ADDRESS IN R2 FOR TYPEOUT 
#B1T11,(R1) SET LINE UNIT LOOP 
C,CHAR LOAD SILO WITH En SYNCS 
SAND THE CHARACTER 252 
AO CLOCK THE DATA 


FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LU 12 
T "FOUND'’ IN R4 
CLEAR UNWANTED B17 
EXPECTED’ IN R5 
31S INRDY SET? 


ERROR, INRDY IS NOT SET 


oo 


sss 
wR 


lo ny 


TaURER 


NEXT WORD 3 INSTRUCTION, ROMCLK PC=5304 
:PORT4_ IN N_ DAT. 

4(R1) ,R4 3PUT * FOUND" IN RS 

#252,R5 PUT ‘EXPECTED’ IN RS 

a SWAS A 252 RECEIVED? 


10 ERROR, RECEIVED DATA IS WRONG 
SCOPE THIS TEST 


pekankakakkkkkkkeeeeh karte TEST 34 cea e eee eee eee eee eee eee 
:*DDCMP BASIC RECEICER TEST 

>*SYNC_UP RECEIVER AND SINGLE CLOCK ie CHARACTER 377 

: “VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


ea cintiieasneeeebine ruhceniete ene tee Geer 


3; TEST 34 


000034 : MOV _#34,TSTNO 
016654 MOV -#TST35,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 


MSTCLR sMASTER CLEAR DMC11 
000012 MOV #12,R2 SAVE REG rie IN R2 FOR TYPEOUT 
004000 #B1T11,(R1) :SET LINE UNIT LOOP 
026560 Pc, CHAR LOAD SILO WITH 3 SYNCS 
SAND THE CHARACTER 377 





CZ0ME  MACY11 30A(1052) 11-SEP-78 12:45 PAGE 65 
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1 016572 104415 000053 DATACLK, 53 ;SINGLE CLOCK THE DATA 
$55 016576 104416 000002 TIMER, 2 WAIT F 
016602 104414 ROMCLK SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
324 016604 021244 021244 SPORTS LU 1 
325 016606 016104 000004 MOV 4(R1) ,R4 ;PUT ‘FOUND’’ IN +o 
326 016612 042704 000357 BIC —-#357.Ré :CLEAR UMWANTED BITS 
327 016616 012705 000020 MOV #B1T4 RS EXPECTED IN R5 
3328 016622 120504 CMPB R5.,R4 71S INRDY Sr 
329 016624 001401 BEQ 1$ 
3 p 16068 104040 HLT 40 sERROR, INRDY IS NOT SET 
3331 0166 1$: 
3 0166 104414 ROMCLK sNEXT or it INSTRUCTION, ROMCLK PC=5304 
3 0166 021204 021204 *PORT4_IN 
3334 016634 016104 000004 MOV = &(R1) RG ;PUT FOUND IN RG 
3335 016640 012705 000377 MOV #377 ,R5 [PUT EXPECTED’’ IN RS 
3336 016644 120504 CMPB R5;,R4 WAS A 377 RECEIVED? 
3337 016646 001401 BEQ 2$ 
3338 016650 104010 HLT 10 sERROR, RECEIVED DATA IS WRONG 
MH 016652 104400 2s: SCOPE sSCOPE THIS TEST 
3341 
3342 ptkkkeaxkkkakexaenkekeawemKe TEST 35 aaaeneeeeeeeee eee eek eeeee 
3343 = *DDCMP DATA TEST 
3344 S*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
3345 :* CHECKING EACH CHARACTER AS IT IS RECEIVED 
3346 ERR ERR RARER REE REI RERERRRREERRERRERERRRER  e 
3347 
3349 g vest & 
3350 016654 012737 000035 001226 TST35: MOV #35,TSTNO 
3351 01 012737 017004 001216 MOV #TST36,NEXT 
2352 3:R1 CONTAINS BASE DMC11 ADDRESS 
3353 016670 104412 MSTCLR sMASTER CLEAR DMC11 
3354 016672 005037 027176 CLR SCHAR ;START BINARY COUNT AT ZERO 
3355 016676 005037 027200 CLR STUFLG ;CLEAR BITSTUFF FLA 
3356 016702 005 CLR . R2 :R2 IS *“EXPECTED’* DATA 
3357 016704 012703 000073 MOV #73,R3 5 IS CHARACT 
3358 016710 012711 004000 MOV #B1T11,(R1) 2 SET LINE UNIT LOOP 
3359 016714 004737 026736 JSR PC,SILOLD LOAD SILO WITH COUNT PATTERN 
3360 016720 104415 000043 DATACLK, 43 : SYNC Sogn AND A im IT ACTIVE 
3361 016724 104415 000730 1$: DATACLK, 730 :CLOC a te pee CTERS 
3362 016730 004737 027202 4$: JSR PC, INRDY ‘MATT FOR 
3363 016734 104414 OMCLK NEXT WORD. rg INSTRUCTION, ROMCLK PC=5304 
3364 016736 021204 021204 ;PORTS IN DATA 
3365 016740 016104 000004 4(R1) ,R4 PUT *FOUND'' IN R4 
3 016744 010205 MOV R2,R RS" [PUT “EXPECTED’’ IN RS 
3367 016746 120504 CMPB R5,R4 31S DATA CORRECT? 
3 016750 001401 BEQ 2s ‘BR IF YES 
3369 016752 104010 HLT 10 [DATA ERROR 
3370 016754 005202 2$: INC R2 NEXT CHARACTER 
3371 016756 022702 000400 CMP #400,R2 ALL DONE? 
3372 016762 001407 BEQ 3$ :BR IF YES 
3373 016764 005303 DFC R3 ;DECREMENT yg COUNT 
3374 016766 001360 BNE 4$ 7BR IF SILO NOT EMPIY 
3375 016770 004737 026736 JSR Pc, SILOLD ;LOAD SILO WITH MORE OF COUNT PATTERN 
3376 016774 012703 000073 MOV #73,R3 [RELOAD CHARACTER COUNT 


CZDME_ _—MACY11_ 30A(1052)_ 11-SEP-78 12:45 PAGE 66 
CZDMEC .P11 11-SEP-78 12:38 BASIC RECEIVER TESTS 


3377 017000 000751 BR 1$ 3 CONT INUE 
ae 017002 104400 3$: SCOPE SCOPE THIS TEST 


‘noha TEST 36 2 eee eee eee eee Keehn 
:*DDCMP DATA TEST 

:*THIS TEST. we STEPS A et COUNT PATTERN 

>*CHECKING EACH CHARACTER AS IT IS Te List 

*THIS TEST IS EXACTLY THE SAME AS THE LAST 

: #EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER. 3° 


TRERRAREKKRERRREREEREERERREREREEREREKREEREREERREREEKEREEKEEREEKEE 


TEST 36 


017004 012737 000036 001226 TST36: & #36,T 
017012 012737 017144 001216 MO fists? NEXT 
#R1 CONTAINS BASE DMC11 ADDRESS 


DMC 
027176 CLR SCHAR :START BINARY COUNT AT ZERO 
027200 STUFLG BITSTUFF FLA 

:R EXPECTED'’ DATA 
000073 Mo #73 .R3 R eS CHARACTER COUNT 


(R1 LU_LOOP IN MAINT REG 
000040 000004 #B1T5,4(R1) ;LOAD PORT 
:NEXT WORD IS NLU REG fe ROMCLK PC=5304 


[MENS EN 
Oo 


RERR 


026736 JSR PC,SILOLD 
000043 43 


RR 


ATTERN 
“SYNC err coe AND cfen IT ACTIVE 
;CLOCK_IN 73 C CTERS 


ped FOR I 
:NEXT WORD i INSTRUCTION, ROMCLK PC=5304 
sPORT4_ IN DAT 
000004 MOV 4(R1) ,.R4 3PUT ‘ FOUND'’ IN R R4 

R2,R5- sPUT *EXPECTED'’ IN R5 

R5,R4 21S DATA_CORRECT? 

2$° IF YES 


:BR YE 
10 DATA ERROR 
: R2 NEXT. CHARACTER 
000400 S00 Re SALL DONE? 


‘BR IF YES 
R3 SDECREMENT CHARACTER COUNT 
BN 4$ ‘BR IF SILO NOT EMPTY 
026736 PC, SILOLD [LOAD SILO WITH MORE OF COUNT PATTERN 
000073 #75,R3 SRELOAD CHARACTER COUNT 


: CONTI 
:SCOPE THIS TEST 


000730 : 730 
027202 : JSR PC, INRDY 


WW 
SNUVYINNS = 


IST TAAAT TST TS 
2 Hs 
WOONAUSWR—O 

jelelelolelelelelelelolelo) 
ts st a td et ss Ss 
NNN SSS 
RRRWNNSEAaeS 


RAR 88 


penanernceseccerereqensonnes TEST 37 ee eunn eee reer eee eee eee eee ee 
* TRANSMITTER MARK aS ae 
; SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA 


FOR 16 BITS WHEN 


FRR CREEK ERE REE ERE REE AKER KEKE RR ERR ERE 


EEEEE 
SASVO 
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: TEST 37 
000037 001226 TST37: Mov #37,TSTNO 
017304 001216 MOV #TST49,NEXT 
zR1 CONTAINS cae ADDRESS 


MSTCLR MASTER CLEAR 
004000 MOV #B1T11,(R1) ;SET LINE UNIT L 
026560 43 PC,CHAR :LOAD SiO WITH 3° SYNCS 


30 
73 :CLOCK THE 301 IN AND 20 EXTRA TICKS 
:WAIT FOR I 


DY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORTS IN DATA 
000004 4(R1) ,R4 PUT ‘FOUND’ IN R4 
000301 #301,R5 sPUT "EXPECTED’’ IN R5 

MPB _ WAS A 301 RECEIVED? 


10 ERROR FIRST CHARACTER INCORRECT 
027202 : PC, INRDY WAIT FOR INRD 
NEXT Ty ota INSTRUCTION, ROMCLK PC=5304 


bs 
oo 
g 


EEEKEE 
BURAK 
SNUG 


Wi 
ow 
o-- 
— 
~m 


£ 


2588 


000073 
027202 JSR PC, INRDY 


BLoRS 
Mma— 
ARREVG 


erenygy 


USWH OO 
= 
— 


RRRRS IRATE 
REE teee 


000004 MO 4(R1) ,R4 
000377 #377 ,R5 EXP R5 
Ba -AS “WAS A 377 RECEIVED? 


10 sERROR, 377 WAS NOT RECEIVED 
027202 : PC, INRDY WAIT FOR I 
T WORD iS. INSTRUCTION, ROMCLK PC=5304 
PORTE DAT. 


000004 (R1) R4 
000377 P PUT ‘EXPECTED’ IN RS 
sWAS A 377 RECEIVED? 


sERROR, 377 WAS NOT RECEIVED 
;SCOPE THIS TEST 


~o00> 
a 
RS 
wn 


PSSST SST 
S 


vs 
232 
Renuss 


—Oo00— 


peekkakkeankkkeeenKKKKnK I TEST GD eee eee eee eee REE ERK IK 


*CLEAR DTR, VERIFY THAT MRDY IS CLEARED 


DIAC IOIIIIOIOISISIOISIOISOUIOIOIUIDIDIOIOIOIDIOI IOI ICIS III III IOI III II I IE 
TEST 40 


TST4O: f #40,T 
MO aistai INEXT 


3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
34 

34 


3R1 CONTAINS BASE DMC11 ADDRESS 
SMASTER CLEAR DMC11 
#B1T13,STAT1 21S LINE UNIT M8202? 
+1 :BR IF YES (DO TEST EVEN IF NO LOOP=BACK CONN) 
#B1T14,STAT1 ;1S_TURNAR CONNECTOR ON? 
$B, :SKIP TEST IF NO 


(R1 : CLEAR Ls UNIT LOOP 
#100.4(R1) OAD PORT4 
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cornu 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET_DTR 


sWAIT 
3;NEXT WORD_IS INSTRUCTION, ROMCLK PC=5304 
sPORT4 _LU13 
000004 PUT 'FOUND'' IN R4 
000223 ; CLEAR UNWANTED BITS 
000110 MOV PUT ‘EXPECTED’' IN RS 

MPB 4 :1S MRDY SET? 

sERROR, MRDY NOT SET 

000004 : CL ;CLEAR PORT4 


s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
CLEAR DTR 


NEXT WORD_IS INSTRUCTION, ROMCLK PC=5304 
3PORT4 LU13 

000004 MO 4(R1) ,R4 PUT ‘FOUND'’ IN R4 
000223 #223,R4 ;CLEAR UNWANTED BITS 

R PUT 'EXPECTED'' IN RS 
020000 001366 - Womans HE oe UNIT M8202? 

»* é 
000010 #BIT3,R5 sMRDY SET ON M8202 

MPB R5.R4 1S MRDY CLEAR? 


ERROR, MRDY NOT CLEAR 
sSCOPE THIS TEST 


000002 


-—-0O-C0000] > 
SPSUNRSVEENS 
FIEZIISE 

Earekcoar 4 


NES 
SOWSR a 


000002 


oo-- = 
RINSE 
Setee == 

Ww 


3 
3 
3 
3 
35 
35 
35 
35 
35 
35 
35 
35 
35 


LARA REERERREEREEKKK KH TEST GL] eee eee eR ER ERK 
:*CABLE TURNAROUND TEST 

;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 

:*VERIFY THAT ALL MODEM SIGNALS ARE SET 


STARR RRR ERERREKRERKE EERE EERE ERREEREKEEEEEKEKEKKEEREREKER KR 


TEST 41 


AWG 
wi 
pay 


000041 001226 TST41: #41, TSTNO 
017632 001216 #TST42,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
:MASTER_CLEAR DMC11 
020000 001366 BIT #B1T13,STAT1 zI1S LINE UNIT M8202? 

BN .+12 3BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 
040000 001366 #B1T14,STAT1 21S TURNAROUND CONNECTOR ON? 

1 :SKIP TEST IF_NO 

004000 #B1T11,(R1) 3SET LINE UNIT LOOP 
000100 000004 MOV #100, 4(R1) ;LOAD PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


CLEAR ALL MODEM SIGNALS,EXCEPT DTR 
000002 2 ; WAIT 
000001 000004 MOV #1,4(R1) LOAD PORTS 
vay oan IS INSTRUCTION, ROMCLK PC=5304 


R5,MESLD ‘FILL OUT DATA SILO 
tWITH 64 CHARACTERS 
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017570 012700 000050 MOV #50,RO ;PREPARE FOR DELAY 
1 - CLR (R15 7CLEAR LINE UNIT LOOP 


sNEXT WORD_IS INSTRUCTION, ROMCLK PC=5304 


4(R1) ,R4 

#223,R4 

#154,R5 ; 

Tia : COMPARE EXPECTED AND FOUND 


;BR OK 

RO ;DEC DELAY COUNT 

2$ 7;BR_IF NOT ZERO 

11 ERROR, ALL SIGNALS ARE NOT SET 
SCOPE THIS TEST 


LARK ERE RRR RIK TEST GD cere een eee eee eee RK 
S*TEST OF CRC OPERATION 

:*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK _ CHARACTER 

*0, VERIFY THE LSB OF THE BCC ON EACH SHIF 

:sTEST TRANSMITTER FIRST THEN THE RECEIVER Bcc 


TERA EEREKEREERERRKEEEEEEKEEEEEEREEEKEEKEREEREREEREEEEKKKEK 
; TEST 42 
0 So ee ee ee ee 


017632 000042 001226 : MOV #42, TSTNO 
7 020146 MOV ATST43,NEXT 


017662 001220 MOV #64$,LOCK 
3R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR SMASTER CLEAR DMC11 
004000 MOV #B1T11,(R1) ET LU LOOP 
027706 : ne ie BCC REGISTERS 


120001 027342 #CRC16,XPOLY 
000000 017736 #0,66$ 
Riecee 


67 ; WARE BCC 
27346 PC ,BCCLD LOAD OUT SILO WITH 2 SYNCS 
AND THE CHARACTER 0 


0 
000021 . 21 :GET TRANSMITTER ACTIVE 
000001 : 1 :SHIFT BCC_ONCE 


C RO BUMP SHIFT COUNT 
027236 R5,SIMBCC sCALCULATE SOFTWARE BCC LSB 
1 ZONE SHIFT 
:DATA_ CHARACTER 
SOLD BCC 
2B IF SOFT 5 BF LSB IS S$ 


gs 
nS 


027460 


—_d od 
2S 
33 
= 

“NO 


35 


BR 69$ 
027460 : P ; E TRANSMITTER BCC LSB 
69$ :BR_IF HARD SB IS SET 
;ERROR, HARD BCC LSB IS CLEAR 


017736 ; 6c$ :SHIFY SOFT DATA 
027344 017760 CALBCC 678 “LOAD OLD SOFT BCC 


Rae 


NN Q—N 


177 
017772 


Oo 
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3601 022700 000010 CMP #10,R0 sDONE YET? 
3602 001346 E 65$ 


1 ‘BR IF NOT DONE 
3603 020006 104401 SCOP1 iSCOPE SUBTEST (SWO9=1) 
020016 001220 MO #71$,LOCK Ww SCOPE1 
027706 : J PC,CLRIO CLEAR BCC REGISTERS 

R R :START SHIFT COUNTER AT ZERO 
120001 027342 #CRC16,XPOLY | ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
000000 020072 #0,73$ :LOAD CHAR FOR SOFTWAR RE BCC 
020074 74§ CLEAR OLD SOFTWARE 8 
027346 j PC ,BCCLD “LOAD OUT SILO WITH SYNCS 


SAND THE CHARACTER 
000032 DATACLK, 32 :GET RECEIVER ACTIVE 
000001 : DATACLK, 1 ;SHIFT BCC ONCE 
INC RO BUMP SHIFT COUNT 
027236 - R5,SIMBCC oe aS SOFTWARE BCC LSB 


;DATA_ CHARACTER 
SOLD BCC 
75$ ;BR_IF SOFT BCC LSB IS SET 
027472 Og GET HARDWARE RECEIVER BCC LSB 


;BR IF HARD BCC LSB IS CLEAR 
CONTI BCC LSB IS SET 


76$ ; CONT INUE 
027472 : GET HARDWARE RECEIVER BCC LSB 
76$ :BR IF HARD BCC LSB IS SET 
sERROR, BCC LSB IS CLEAR 


020072 73$ zSHIFT SOFT DATA 
027344 020074 ° ;LOAD OLD | SOFT BCC 
000010 MP 10,R0 3 YET? 
;BR_IF NOT DONE 
SCOPE SUBTEST (SWO9=1) 
020144 : SCOPE THIS TEST 


SeepeRees 


vintatatatat tatty 
OWOONAQULSWN—O 


petkkktkke eto TEST 63 ott ttt tot totk ii IO IR kik & 
*TEST OF CRC OPERATION 
; E POLYNOMIAL, SINGLE Soe Hs CHARACTER 
:*377, VERIFY THE LSB OF THE BCC _ON EACH SHIF 

:*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


: TARR REE REE REE EKEKEREKERAKREREEEE 


TEST 43 


020146 
020154 
020162 


000043 : #43, TSTNO 
020462 MO ATST44 NEXT 
020176 #64$,LO0CK 


Bouse ens 


:R1_ CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 

#B1IT11,(R1) SET LU LOOP 

PC,CLRIO CLEAR BCC REGISTERS 

RO :START SHIFT COUNTER AT ZERO 

#CRC16,XPOLY 3L YNOMIAL FOR SOFTWARE BCC 

#377 ,66$; LOAD CHAR FOR SOFT —_ BCC 

6°$ :CLEAR OLD SOFTWARE B 

PC,BCCLD LOAD OUT SILO WITH 5 SYNCS 


RRR 
ee A ele 
g2c882 
NA-N NNN 


awn 
WNon 
NNNN 


020224 


2 
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377 THE CHARACTER 377 
000021 DATACLK, 21 Cer TRANSMITTER ACTIVE 
900001 65$: K, 1 SHIFT BCC_ONCE 
RO BUMP SHIFT COUNT 
027236 : R5,SIMBCC Sone Snare SOFTWARE BCC LSB 
66$: DATA CHARACTER 


67$: SOLD BCC 
:BR IF SOFT BCC LSB IS SET 


Oo 


027460 
ERROR, BCC LSB IS SET 
> CONT INUE 


BR 69$ 
027460 : P [GET HARDWARE TRANSMITTER BCC LSB 
69$ BR IF HARD BCC LSB IS SET 
16 ;ERROR, HARD BCC LSB IS CLEAR 


020252 66$ :SHIFT SOFT DATA 
027344 020254 CALBCC 67% LOAD OLD SOFT BCC 
000010 #10,R0 DONE YET? 

BN 65$ :BR IF 


NOT DONE 

: SCOPE SUBTEST (SWO9=1) 
020332 001220 MO #71$,LOCK SCOPE1 
027706 : PC,CLRIO CLEAR BCC REGISTERS 

RO [START SHIFT COUNTER AT ZERO 

120001 027342 MCRCI6,XPOLY LOAD POLYNOMIAL FOR SOF THARE BCC 
000377 020406 #377,738: “LOAD CHAR FOR SOFTWARE BCC 
020410 74$ [CLEAR OLD SOFTWARE BCC 
027346 PC,BCCLD [LOAD OUT SILO WITH e. SYNCS 

[AND THE CHARACTER 377 


000032 . 32 GET RECEIVER ACTIVE 
000001 : 1 > SHIFT one Bas 
sBUMP SHIFT COUNT 
027236 R5,SIMBCC CALCULATE SOFTWARE BCC LSB 
1 SONE SHIFT 
:DATA_CHARACTER 
OLD BCC 
75$ 7BR IF SOFT BCC LSB 
027472 GET HARDWARE RECEIV 
76$ BR IF HARD BCC 1% 
E 


28368 


— 
Fg 
WS 
NW 


_—— 
eS 
3 
= 
Ww 


sERROR, BCC LSB I 
> CONT INUE 


a 


BR 76$ 
027472 : [GET HARDWARE RECEIV 
76$ 7BR IF HARD BCC LSB 
:ERROR, BCC LSB IS 


Ree 


NNO OO 


73$ sSHIFT SOFT DATA 
CALBCC,74$ ;LOAD OLD 5 50F T BCC 
#10,R0 : YET? 

:BR IF NOT DONE 

[SCOPE SUBTEST (SWO9=1) 

:SCOPE THIS TEST 


segse 
ERING 
sorsua Sous 


petakanak creas aeteaeeeaneie TEST GG aiac arcane eee eee eee eee nek 


*TEST OF CRC OPERATION 
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;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
:*125, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
>*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


: TARA EEREERKREKEERKEEEEEKEEEEEKREEKEEEEKREEKREREEEEREEEEREEE 


: TEST 44 
000044 : #44 ,TSTNO 
020776 MOV MTST4S5 NEXT 
020512 MOV #64$,LOCK 


lolelo) 


3R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR :MASTER CLEAR DMC11 
004000 MOV #B1T11,(R1) SET LU LOOP 
027706 : o_o CLEAR Mace REGISTERS 


T_ SHIFT COUNTER AT ZERO 
120001 #CRC16,XPOLY YNOMIAL FOR S 
000125 #125 ,66$; 
020570 67$ 
027346 PC,BCCLD 


125 ; THE CHARA 
000021 ra :GET TRANSMITTER ACTIVE 
000001 : 1 SHIFT BCC ech CE 


C BUMP SHIFT COUNT 
027236 R5,S1MBCC oe Saar SOFTWARE BCC LSB 
:DATA_CHARACTER 


SOLD BCC 
68$ BR IF SOFT BCC LSB IS SET 
027460 PC,GETQO GET HARDWARE TRANSMITTER BCC LSB 
69$ BR IF HARD BCC LSB _IS CLEAR 
12 sERROR, BCC LSB IS SET 
> CONT INUE 


BR 69$ 
027460 : PC,GETQO [GET HARDWARE TRANSMITTER BCC LSB 
69$ :BR_IF HARD BCC LSB IS SET 
16 ERROR, HARD BCC LSB IS CLEAR 


020566 ; 66$ :SHIFT SOFT DATA 
027344 020570 CALBCC ,67$ [LOAD OLD SOFT BCC 
000010 cm #10.R0 ‘DONE YET? 


[BR IF NOT DONE 

SCOPE SUBTEST (SwO9=1) 
020646 001220 MO #71$,LOCK ‘NEW SCOPE1 
027706 1$: PC,CLRIO [CLEAR BCC REGISTERS 

R :START SHIFT COUNTER AT ZERO 

120001 027342 M#CRC16,XPOLY  :LOAD NOMIAL FOR SOFTWARE BCC 
000125 020722 #125,73$; : BCC 
920724 


4 
27346 PC,BCCLD 


R 


o-— 

—_— 

~m 
NN NNN 
w——| WWW 


2eg8 
NN NNN 


S8S3888 


ue 


2c 
Ree 


25 2 THE C 
000032 - 32 GET meceiveR ACTIVE 
000001 : . 1 SHIFT BCC mt 


C 0 BUMP SHIFT COUNT 
027236 ‘ R5,SIMBCC CALCULATE SOFTWARE BCC LSB 
1 ZONE SHIFT 
sDATA CHARACTER 
;OLD BCC 


020724 
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3BR_IF SOFT BCC LSB IS SET 
; GET R 


at 
oO 
rs 
oO 
Ww 


75$ 
027472 . f PC,GETQ] 
is 


—_ wd 
238 
re f 
-—OW 
Wan 


sERROR, BCC LSB IS SET 
> CONT INUE 


BR 76$ 
027472 : PC, GETQI [GET HARDWARE RECEIVER BCC LSB 
76$ ‘BR IF HARD BCC LSB IS SET 
17 TERROR, BCC LSB IS CLEAR 


920722 73$ = SHIF T SOFT DATA 

027344 020724 CALBCC,74$ ;LOAD OLD 4 DOF T BCC 

000010 #10,R0 ;DONE YET? 
7BR_IF NOT DONE 

:SCOPE SUBTEST (SWO9=1) 

SCOPE THIS TEST 


Ree 
ofn 
2 


Ww —OW 
N NSN 


3 


SST 
soreu 


ptkkkkkkernkkkeeeeeee eee TEST 65 ttt tt IR ERK 
S*TEST OF CRC OPERATION 

s*USING THE CRC16 t Yas SINGLE CLOCK ha CHARACTER 

#252, VERIFY THE LSB OF THE BCC ON EACH SHIFT 

:*Test TRANSMITTER FIRST THEN THE RECEIVER BCC 


TRAE REE ER AEE KEE EKKEEEEKEKEEKEKKKKK 
TEST 45 


020776 000045 001226 : #45, TSTNO 
021004 021312 MO A#TST46,NEXT 
021012 021026 001220 #64$,LOCK 
:R1_ CONTAINS BASE DMC11 ADDRESS 


021020 104 sMASTER CLEAR DMC11 
004000 MOV #B1T11,(R1) SET LU LOOP 
027706 : PC,CLRIO CLEAR BCC REGISTERS 
RO START SHIFT COUNTER AT ZERO 
120001 027342 #CRC16,XPOLY [LOAD POLYNOMIAL FOR SOFTWARE BCC 
000252 021102 #252 ,66$; LOAD CHAR FOR SOFTWARE BCC 
021104 67$ :CLEAR OLD SOFTWARE BCC 
027346 PC ,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
AND THE CHARACTER 252 


252 
000021 21 :GET_ TRANSMITTER ACTIVE 
000001 ; 1 SHIFT BCC em 


C RO BUMP SHIFT COUNT 
027236 R5,S1IMBCC [CALCULATE SOFTWARE BCC LSB 


3ONE SHIFT 
DATA CHARACTER 
[OLD BCC 
68$ [BR IF SOFT BCC LSB IS SET 
027460 GET HARDWARE TRANSMITTER BCC LSB 
69 ;BR IF HARD BCC LSB IS CLEAR 
ERROR, BCC LSB IS SET 
> CONT INUE 


BR 69% 
027460 : [GET HARDWARE TRANSMITTER BCC LSB 
69$ BR IF HARD BCC LSB IS SET 
:ERROR, HARD BCC LSB IS CLEAR 


021102 : :SHIFT SOFT DATA 


85 80 83 89 60 8 89 8 80 So 
ond oad aad ath ath nth oath eth an ed 
WONAULSWN-—O 
Lt) 
<bebabahdbeheban 
SRVSSRSKRS 


CERES 
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027344 021104 CALBCC ,67$ ;LOAD OLD. SOFT BCC 
000010 C #10,R0 A YET? 


F NOT DONE 
seco" SUBTEST (SWO9=1) 
021162 001220 MOV #71$,LOCK W SCOPE1 
027706 71$: J PC,CLRIO [CLEAR BCC ao ERS 
0 ZSTART SHIFT 


R 
120001 027342 #CRC16,XPOLY 
000252 021236 #252,738; 
021240 74 : WARE BCC 
027346 PC,BCCLD ‘LOAD OUT SILO WITH é SYNCS 

252 SAND THE CHARACTER 252 
000032 32 [GET RECEIVER ACTIVE 
000001 : 1 :SHIFT BCC ONCE 

RO ‘BUMP SHIFT COUNT 

027236 : R5,SIMBCC ; CALCULATE SOFTWARE BCC LSB 


ZONE SHIFT 

;DATA_CHARACTER 

SOLD BCC 

:BR IF SOFT BCC LSB IS S$ 
027472 T RE 
SERROR, BCC LSB IS SET 
> CONT INUE 


BR 76$ 
027472 : ‘ [GET HARDWARE RECEIVER BCC LSB 
76$ BR IF HARD BCC LSB IS SET 
ERROR, BCC LSB IS CLEAR 


021236 , 73$ zSHIFT SOFT DATA 
027344 021240 CALBCC,74$ [LOAD OLD SOFT BCC 
600010 #10,R0 ‘DONE YET? 


:BR_IF NOT DONE 
021306 :SCOPE SUBTEST (SWO9=1) 
021310 104400 : SCOPE THIS TEST 


peakkekkakkkeearkeeeanaeeeiete TEST G6 eae e eee eee eee eee eee eek 

;* TRANSMITTER CRC TEST 

2*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 

; *COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 


CREAR ERE RAE 


TEST 46 


021312 
021320 


oo 


#46,TSTNO 
MTST47 NEXT 
2R1 CONTAINS A ih ADDRESS 


o=- 
UR 


#BiT17,(R1) 
R3 


2 T COUNT 
R4 : O BE LOADED IN SILO 
R5 TRS_CONTAINS. CHAR CURRENTLY BEING SHIFTED OUT 
021444 4$ [CLEAR SOFT BCC 
120001 V #CRC16,XPOLY LOAD POLYNOMINAL 
027510 J Pc, SYNLD SLOAD SILO WITH Ne SYNCS, SOM SET 
000004 R4.4(R1) :PORT4_ CHAR 


REE 


ae 
N 
Ww 
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iNEXT won 1S INSTRUCTION, ROMCLK PC=5304 
d INCREMENT TO NEXT CHARACTER 

[NEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
jLOAD OUT DATA 

on he TO NEXT CHARACTER 


ZNEXT OOD IS INSTRUCTION, ROMCLK PC=5304 
‘ LOAD OUT D 
026374 JSR PC,OCOR {UAIT FOR OCOR 
000021 DATACLK,21 ;CLOCK DATA 
021442 MOV _R5,3$ [LOAD CHAR FOR SOFT CRC 
000001 DATACLK, 1 ONCE 
027236 JSR “RS. SIMBCC 


R4 
000004 MOV R4,4(R1) 


R4 
000004 MO R4,4(R1) 


to) 
SNES 


-O— 
= 
So 


RSR 
WAP a1 P a er 
WWW SO 


-—NVYNYINOS— 


: 


SOFT BCC 
5$ :BR IF SOFT BCC LSB IS SET 
027460 PC,GETQO GET HARDWARE TRANSMITTER BCC LSB 
6$ ;BR_IF OK (CLEARED) 
20 sERROR, BCC LSB WAS SET 
BR 6$ [CONTINUE WITH TEST 
027460 : PC,GETQO GET HARDWARE TRANSMITTER BCC LSB 
021466 6$ ;BR_IF Ok (SET) 
021470 104 21 ERROR, BCC LSB WAS CLEAR 


021472 : 
021442 3$ sSHIFT SOFT DATA 
027344 021444 CALBCC .4$ LOAD OLD SOFT BCC 

R3 Fete pe ge BIT COUNTER 
000010 a g10.RS DONE A FULL CHARACTER YET? 


:BR IF NO 
R3 sRESTART BIT COUNTER 
R4 : INCREMENT DATA FOR z10 
000400 anne : DONE res. COUNT YET? 


;BR IF YE 
000004 MOV R4,4(R1) ;PORT4 
3NEXT era! INSTRUCTION, ROMCLK PC=5304 


st 
R5 : INCREMENT OD. 
aes [DONE BINARY PATTERN YET? 


0215 BNE BR IF NO 
021546 : >SCOPE THIS TEST 


peteakkereeaeeee area eet TEST 67 reac ee cere eee eee eee eee 
> *RECEIVER CRC TEST 

7*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 

>*COUNT PATTERN, VERIFY THE LSS OF THE RECEIVER BCC ON EACH SHIFT 


2 MASSER ASSASLASLASLESSSE SEES E ES EE REESE ESET ERE SESE SEES ECS S ELEC aS. 
TEST 47 


000047 001226 15147: Mov #57, TSTNO 
022006 001216 MOV #TST5SO,NEXT 





CZDME_ MACY11 eta 11-SEP-78 12:45 PAGE 76 
CZDMEC .P11 11-SEP-78 12:38 BASIC RECEIVER TESTS SEQ 0076 


7R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR ; AR _DMC11 
004000 MOV shila 

HAR TO BE LOADED IN SILO 
R5 TRS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
021702 4$ SCLEAR SOFT BCC 
120001 027342 #CRC16,XPOLY [LOAD POL YNOMINAL 
027510 PC, SYNLD ; LOAD SILO WITH 2 SYNCS, SOM SET 
000004 MOV R4,4(R1) 4_CHAR 
:NEXT oon | I atta ROMCLK PC=5304 

ZINCREMENT TO NEXT CHARACTER 
NEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DATA 
SBORTE Chen TO NEXT CHARACTER 


:NEXT OORD Is INSTRUCTION, ROMCLK PC=5304 


R4 
000004 . R4,4(R1) 


RS 
000004 . R4,4(R1) 


026374 JSR PC,OCOR 3 

000032 DATACLK,32 :CLOCK DATA 

021700 : MOV R5,3$ SLOAD CHAR FOR SOFT CRC 
000001 : DATACLK, ONCE 

027236 = R5,SIMBCC 


SOFT BCC 
:BR IF SOFT BCC LSB IS SET 


5$ 
027472 ; _ 3GET po RECEIVER BCC LSB 
22 
BR 6$ TEST 
027472 : ata ;GET renee RECEIVER BCC LSB 


;BR IF Ok (SET 
23 ERROR, BCC LSB WAS CLEAR 


OR, B 
CONT INUE WITH 


021700 3$ :SHIFT SOFT DATA 
027344 021702 MO CALBCC,4$ LOAD OLD SOFT BCC 

C R3 fete BIT COUNTER 
000010 a £10.85 :DONE TA F ULL CHARACTER YET? 


;BR_IF NO 
R3 sRESTART BIT COUNTER 
R4 : INCREMENT DATA FOR 3140 
000400 ; 00 .a8 Beir tes COUNT YET? 
000004 MO R4,4(R1) sPORT4 
CLK :NEXT QORD 1s INSTRUCTION, ROMCLK PC=5304 


> INCREMENT DATA 
[DONE BINARY PATTERN YET? 


BR IF 
:SCOPE THIS TEST 
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pktarkrekeeeeeeeeeeeeeeneee TEST 50 ceaeaeneaeneneeeeteeeenene 

> * TRANSMITTER DDCMP CRC TEST 

>*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 

;*BOTH ante AND THE BCC ARE gr a 4 wo5 IT 

; *WINDOW. FOUR CHARACTERS 77 

3 *THE TRANSMITTER IS CHECKED FOR GOING Ne f6 6A “MARK STATE AFTER THE BCC 


5 AAR EERREEKREREREEREEEEKRERREERRRE EERE KK 


TEST 50 


022006 012737 000050 001 sce TST5O: MOV #50,T 
022014 012737 022340 0012 MOV aTstsi NEXT 
3R1_ CONTAINS BASE DMC11 ADDRESS 


022022 104412 MSTCLR sMASTER CLEAR DMC11 
LOAD OUT DATA SILO 


022024 004000 #B1T11,(R1) 2 SET LINE UNIT LOOP 
2 HME SDAT ,R4& :LOAD POINTER TO DATA 
10$ ;CLEAR SOFT BCC 
#4 ,RO ;LOAD CHARACTER COUNT 
PC,SYNLD ;LOAD 2 SYNCS _IN OUT SILO 
PC,OUTRDY WAIT FOR OUTRDY 
R5 ,MESLD :LOAD SILO WITH 4 CHAR MESS 
wet iy oe MESSAGE 
OF CHARACTERS 
027620 PC,EOM LOAD GARBAGE CHARACTER, WITH EOM SET 
026374 “7 -OCOR 


CLR 
000022 DATACLK,22 
: MOVB 


(R4)+,R5 
MOV R5 Re 


:CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT WINDOW (0,125,252,377) 


027342 MOV #CRC16,XPOLY LOAD POLYNOMIAL 
MOV R5.67$ :LOAD SOFT CHAR FOR BCC 
i” RS,SIMBCC ee BCC 


IFT 
0 ; CHARACTER 


10$: 0 :OLD BCC 
027344 022130 MOV CALBCC ,10$ ;LOAD SOFT BCC FOR NEXT SHIFT 
000001 64$: ACLK, 1 7SHIFT DATA i \ BIT WINDOW 
SHIFT SOFT DAT 
65$ :BR IF A SPACE 
026342 PC,GETSI ;LOOK AT BIT WINDOW 
S OK (MARK) 


66$ ‘BR IF 
6 TERROR, BIT WINDOW WAS A SPACE 
66$ > CONTI! 
026342 : PC,GETS! ‘LOOK AT BIT WINDOW 
C 66$ ‘BR IF OK (SPACE) 
TERROR, BIT WINDOW WAS A MARK 


RZ ;BUMP BIT COUNTER 
#10,R3 :DONE FULL 8 BITS YET 


sarees 
SSeusscy 


ee 


S 


022174 


Oo 
Mm 
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022200 BNE 64 :BR_IF NO 

022202 00 CLEAR BIT COUNTER 
022204 DEC CHARACTER COUNT 
022206 BNE 12$ BR IF NOT DONE YET 


:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


022210 MOV CALBCC ,RO :PUT BCC IN 
000001 : DATACLK,1 ; T 
ROR RO 


E88 


OK (MARK) 
- CRC WRONG (SPACE) 


; CONT INUE 

LOOK AT BIT WINDOW 

BR IF OK (SPACE) 
ERROR, CRC WRONG (MARK) 


a 


BUMP BIT COUNTER 
pe ge BCC YET? 


:BR_IF NO 

[CLEAR BIT COUNTER 
;CHECK TO SEE IF TRANSMITTER IS MARKING 
DATACLK, 1 :CLOCK TRANSMITTER 

tar AT WINDOW 

:1T SHOULD BE MARKING 

ERROR, a! WAS A SPACE 

;BUMP BT COUNTER 

o—," 


eNO 
IVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
COUNTER 


88x 
W—P 
Sus 
WNW 


—_ —_ 
Se 
NOENE 
WWE] NUT 


$ 


104 
005 
02270 
001 
104 


SERRE 
—NVUIWYI 


: IT IS A MARK 

ERROR, TRANSMITTER IS NOT MARKING 
INC BIT COUNT 

DONE YET? 


age 


:BR_IF NO 
:SCOPE THIS TEST 


2 


DOO OO oooiooeontocoi TEST 5] toutuuri tort kk tin ik 
> *RECEIVER DDCMP CRC TEST 

* S A FOUR CHARACTER MESSAGE WITH BCC 

7 *AND VERIF YS CORRECT DATA gp gt Ge ae BCC MATCH 

: I £E THAT IT IS NOT ASSERTED 

[*UNTIL THE aT 44 HALF OF THE CRC Ie RECEIVED 

«TH E FOUR CHARACTER MESSAGE IS 0,125,252,377 


TISAI IOI SIO IOOISIIOOIIOOIOO OO IOISIIOIOIISOO IO itok nto 
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4105 000051 001226 TST51: MOV #51, TSTNO 
1 022566 001216 MOV #TST52,NEXT 


MSTCLR 
MOV 


BSR 


3R1 CONTAINS BASE DMC11 ADDRESS 
;MAST AR_DMC11 


3 


#B81T11, (R1) 
#MESDAT ,R2 
#4 RO 


PC,SYNLD 

PC ,OUTRDY : 

R5,MESLD ; 
sADDRESS OF MES 

4 NUMBER OF CHARACTERS 

027620 PC,EOM ;LOAD GARBAGE CHARACTER, WITH EOM SET 

eer saci tio 


027202 : SR PC, INRDY 


BSS eRARe 
QANNN 


3 


RARRARARARLRS oS 

— od 2 3 —_ 

etd ed od ed I 
SomNOnrwv—o 


INRDY 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:GET IN DATA 


R 
REVS 


000004 4(R1) ,R4 PUT R4 
(R2)+,R5 PUT ‘EXPECTED’’ IN RS 
R5,R4 ;COMPARE RECEIVED DATA 
1$ 7BR IF OK 
10 ;DATA ERROR 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


4(R1) ,R4 7PUT *FOUND'' IN R4 
es ; 


=--00— 
SN=LH 
=ONO— 
SLEEK 


fa ot 
S 


104 
104 
021 
016 
042 
005 


Se8x 
2S38sek 


: IN BCC MATCH ERROR 
DEC CHARACTER COUNT 
BR IF NOT DONE YET 


3CHECK TO SEE THAT IN BCC MATCH IS SET 
027202 PC, INRDY :WAIT FOR INRDY 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
'GET FIRST HALF OF CRC 
000004 MOVB 4(R1).TEMP3 ‘PUT IN TEMP3 
177400 #177400, TEMP3 :CLEAR HI BYTE 
027202 J PC, INRDY ‘WAIT FOR INRDY 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PUT ‘FOUND’ IN RG 
‘CLEAR UNWANTED BITS 
SPUT ‘EXPECTED’ IN R5 
‘1S IN BCC MATCH SET? 
:IN BCC MATCH ERROR 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


GET LAST HALF 
:SCOPE THIS TEST 


oo -o- 
SuLEINSSE 
REVS sa 


Svyf OFM 


—_— 


000004 
000376 
000001 


ace seas 
SRR GLRGRR 
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parenarkranaaeeeeneraneneeene TEST 52 seaeatanneneaeeeeeeenen ine 
:*DDCMP_EOM FUNCTION TEST 
;*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM 
ER MESS,EOM. THE DATA STREAM IS CHECKED TO BE 
few fs THIS ‘Muse THAT 


x “ARE 
C E SSAGE IS I ES ae 377 
“RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 


[RRRRRERARRRRRRRRERRRARRERRRERERER ERE RRERE EERE EERE RR RRR 


; TEST 52 
022566 000052 001226 TST52: Mov #52,T 
022574 023666 001216 MOV aTstss, NEXT 
:R1_ CONTAINS BASE ~~" ADDRESS 


MSTCLR sMASTER CLEAR DMC1 
;LOAD OUT DATA SILO 


#B1T11,(R1) SET LINE UNIT LOOP 
AME SDAT ,R4 ;LOAD POINTER TO DATA 
10$ CLEAR SOFT BCC 
#4 ,RO [LOAD CHARACTER COUNT 
PC,SYNLD sLOAD 2 SYNCS_IN OUT SILO 
PC,OUTRDY WAIT FOR OUTRDY 
RS ,MESLD LOAD SILO WITH , CHAR MESS 
ADDRESS OF MESSAGE 
NUMBER OF CHARACTERS 
027620 PC.EOM :LOAD oa CHARACTER, WITH EOM SET 
027644 S R5 ,MESLD ;LOAD FOUR CHARACTERS 
‘ADDRESS OF MESSAGE 


[NUMBER OF CHACTERS 
027620 PC,EOM 7 SET a 
026374 PC,OCOR ;WAIT FOR OCOR 
CLR R3 : CLEAR Ae COUNTER 
000022 DATACLK,22 CK_DAT. 
: MOVB (R4)+,R5 ; 
MOV R5,R2 [LOAD R2 WITH CHAR 


CHECK FIRST FOUR CHARACTER MESSAGE 
2IN THE BIT WINDOW (0,125,252,377) 


120001 027342 #CRC16,XPOLY LOAD POLYNOMIAL 
022722 R5,67$ LOAD SOFT CHAR FOR BCC 
027236 ; R5,SIMBCC :CALCULATE. § SOFT BCC 


onNNN 


— 

Ru 

anaes} 
NANMUN 


1 0 ;0LD BCC 
027344 022724 MO CALBCC,10$ ;LOAD SOFT BCC FOR NEXT SHIFT 
000001 64$: CLK 1 SHIFT DATA in - BIT WINDOW 
S SHIFT i?! DAT 
65$ ‘BR IF A SPAC 
026342 ;LOOK AT BIT oa 
022750 BCS 66 [BR IF OK (MARK) 


22230 
&R 


So 
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022752 6 sERROR, BIT WINDOW WAS A SPACE 
0004 BR I 


66$ eC 

PC,GETSI [LOOK AT BIT WINDOW 

66$ ‘BR IF OK (SPACE) 

6 TERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 
+ DONE AA nr BITS YET 


CLEAR BIT COUNTER 
:DEC CHARACTER COUNT 
;BR IF NOT DONE YET 


:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


027344 MOV CALBCC,RO :PUT BCC IN RO 
000001 :  DATACLK,1 ‘SHIFT HARDWARE BCC 
ROR RO ‘SHIFT SOFT BCC 
69$ ‘BR IF CARRY CLEAR 
026342 PC,GETSI :LOOK AT BIT WINDOW 
70$ [BR IF OK (MARK) 
14 TERROR, CRC WRONG (SPACE) 


70$ ; CONT INUE 
026342 : PC,GETSI [LOOK AT BIT WINDOW 
70$ :BR IF OK (SPACE) 
14 ERROR, CRC WRONG (MARK) 


R3 :BUMP BIT COUNTER 
000020 a ars BCC YET? 


:BR_IF NO 
R3 [CLEAR BIT COUNTER 
000004 #4 ,RO RESET CHARACTER COUNTER 
030126 MO AME SDAT ,R4 LOAD MESSAGE POINTER 
023116 11$ >CLR SOFT s" 
: (R4)+,R5 [LOAD CHAR IN RS 
R5,R2 [LOAD CHAR IN R2 


:CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377) 
20001 027342 MOV #CRC16,XPOLY LOAD POLY: 


1 NOMIAL 
023114 MOV R5,76$ LOAD SOFT CHAR FOR BCC 
027236 JSR R5,SIMBCC : CALCULATE SOFT BCC 

10 SHIFT COUNT 


11$: 0 : 
027344 023116 MOV CALBCC,11$ LGAD SOFT &CC FOR NEXT SHIFT 
000001 73$: 1 * SHIFT DATA IN TO BIT WINDOW 
S SHIFT yt! DATA 
[BR IF A SPACE 


743 
026342 PC,GETSI LOOK AT BIT aaa 
75$ BR IF OK (MARK) 
sERROR, BIT WINDOW WAS A SPACE 
BR 75$ > CONT INUE 
026342 : PC,GETSI ;LOOK AT BIT WINDOW 


7°é ‘BR IF OK (SPACE) 
é TERROR, BIT WINDOW WAS A MARK 


fe 
Rgassse 


e 
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75$: 
R3 : COUNTER 
900010 MP #10,R3 : FULL 8 BITS YET 
R3 CL T COUNTER 


RQ DEC CHARACTER COUNT 
023174 BN 13$ :BR IF NOT DONE YET 


:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


023176 027344 MOV CALBCC ,RO :PUT BCC _IN RO 
15 000001 : DATACLK,1 sSHIFT HARDWARE BCC 
ROR RO : SHIFT SOFT BCC 


78$ IF CARRY CLEAR 
026342 PC,GETSI ‘LOOK AT BIT WINDOW 

79$ ‘BR IF OK (MARK) 

14 ZERROR ORC WRONG (SPACE) 


BR 79$ = CONT INUE 
026342 : PC,GETSI [LOOK AT BIT WINDOW 
79$ SBR IF OK (SPACE) 
14 TERROR, CRC WRONG (MARK) 


R3 BUMP BIT COUNTER 
#20,R3 sFINISHED BCC YET? 
77$ [BR IF NO 


I 
023244 3 R3 [CLEAR BIT COUNTER 
CHECK TO SEE IF TRANSMITTER IS MARKING 


023246 5 000001 : os 1 ;CLOCK TRANSMITTER 
;LOOK AT WINDOW 
:1T SHOULD BE MARKING 
ERROR, BIT WAS A SPACE 
;BUMP BIT COUNTER 
ONE YET 


BR IF NO 
[GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
[CLEAR BIT COUNTER 
[SHIFT OUT NEXT BIT 
[LOOK AT BIT WINDOW 
:BR IF IT IS A 
ERROR, TRANSMITTER IS NOT MARKING 
. oe sINC BIT COUNT 
023322 E 4$ [BR IF NO 


:CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
sWAS RECEIVED CORRECTLY (0,125,252,377) 


000001 DATACLK, 1 :GET LAST BIT IN RECEIVER 
000004 #4 ,R ;R3=CHARACTER COUNT 
030126 SLOAD MESSAGE POINTER IN R2 
027202 : . INR [WAIT FOR INRD 
LK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


023324 
023 


o~— 
SNOWY! 


RR 


23346 
023350 


204 
000004 ‘ ;PUT "'FOUND'' IN RG 
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023354 (R2)+,R5 3PUT "EXPECTED’’ IN R5 
504 MPB re 31s a ae DATA CORRECT? 


:BR YES 
10 RECEIVE DATA ERROR 
R3 DEC CHARACTER COUNT 
40$ BR IF NOT DONE YET 


CHECK TO SEE THAT IN BCC MATCH IS SET 
:AND THAT THE BCC WAS RECEIVED CORRECTLY 


027202 JS PC, INRDY ;WAIT FOR INRDY 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7GET FIRST HALF OF CRC 

000004 4(R1), TEMP3 ‘PUT IN TEMP3 

177400 #1 7 7400. TEMPS :CLEAR HI BYTE 

027202 PC, 1 ‘WAIT FOR INRDY 

[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


000004 MO 4(R1) ,R4 3PUT ‘FOUND IN R4 

000376 #376 ,R4 CLEAR UNWANTED BITS 

000001 #1,R sPUT ‘EXPECTED'’ IN RS 
Bans :1S IN BCC MATCH SET? 
15 : IN BCC MATCH ERROR 


ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
[GET LAST HALF 

4(R1), TEMP2+1 :PUT IN TEMP2 

#377, TEMP2 CLEAR LO BYTE 

TEMP2, TEMP3 216 BIT BCC NOW IN TEMP3 


E 
CALBCC,, TEMP3 ZIS IT CORR 
42$ BR IF OK 


27 


CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
sWAS RECEIVED CORRECTLY (0,125,252,377) 


000004 3 #4 ,R3 3R3=CHARACTER COUNT 
030126 AME SDAT ,R2 LOAD MESSAGE POINTER IN R2 
027202 z JS PC, INRDY [WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


000004 MOV 4(R1) ,R4 :PUT * FOUND" IN 
3PUT ‘EXPECTED’ R5 
21S RECEIVED DATA. CORRECT? 


7BR IF YES 

RECEIVE DATA ERROR 
[DEC CHARACTER COUNT 
;BR IF NOT DONE YET 


:CHECK TO SEE THAT IN BCC MATCH IS SET 
sAND THAT THE BCC WAS RECEIVED CORRECTLY 


023546 027202 JSR PC, INRDY AT FOR INRDY 
023552 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
023554 021204 GET FIRST HALF OF CRC 


+9-=00-000 
SSe8x=FRese3 


023544 
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4(R1), TEMP3 
#177400, TEMP3 
PC, INRDY 


11-SEP-78 
12:38 


000004 001252 :PUT IN TEMP3 
177400 001252 
027202 ; INR 
sNEXT WORD 1s, INSTRUCTION, ROMCLK PC=5304 
T 'FOUND’’ IN 
CLEAR UNWANTED BITS 
;PUT ‘EXPECTED'’ IN RS 
71S IN BCC MATCH SET? 
: IN BCC MATCH ERROR 
sNEXT = IS_INSTRUCTION, ROMCLK PC=5304 
:GET LAST HALF 
>PUT IN TEMP2 
CLEAR LO BYTE 
316 BIT BCC ~ IN TEMP3 
IS IT CORRECT? 
IF OK 


4(R1) ,R4 
37 


000004 
000376 
000001 


4(R1), TEMP2+1 
377, TEMP2 

TEMP2, TEMP3 

CALBCC, TEMPS 


27 


000004 
000377 
001250 
027344 


sSCOPE THIS TEST 


LARA RRR RARER KKKKE TEST 53 LASERS SASER LASALLE ASS SSS SS EG 
> *DDCMP_EOM FUNCTION TEST 

>*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE .EOM 
>*SOM,4 CHAR MESS,EOM. THE DATA STREAM IS CHECKED TO BE 

>*4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT 

>*THE CHARCTERS LOADED WITH EQM SET ARE LOST 

= *ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN Med BCC 

:*ALL DATA AND BCC'S ARE CHECKED “ THE BIT WIND 

> *THE FOUR CHARACTER MESSAGE IS 0,125,252,377 

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 


TASES IIIS ISOS OI IDIOIOIIIOIOIISI IOI IIIS IE 


#53,1TSTNO 
#TST54,NEXT 


023666 012737 000053 
023674 025066 


023702 


Mov 
MOV 
MSTCLR 
:LOAD OUT DATA SILO 


#B1T11,(R1) 
AME SDAT ,R4 


001226 TSTS3: 
001216 

3R1_ CONTAINS BASE ~~ ADDRESS 
;MASTER CLEAR DMC11 


SET LINE UNIT LOOP 

; LOAD e:-iy- TO DATA 
:CLEAR SOFT BCC 

LOAD CHARACTER COUNT 

:LOAD 2 SYNCS IN OUT SILO 
WAIT FOR OUTRDY 

LOAD SILO WITH 4 —— MESS 
;ADDRESS OF MESSA 

NUMBER OF CHARACTERS 


027620 
027570 
023754 027644 


= LOAD GARBAGE CHARACTER, WITH EOM SET 
;LOAD GARBAGE CHAR WITH SOM SET 
[LOAD FOUR MORE CHARACTERS 
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ME SDAT ADDRESS OF MESSAGE 
4 SNUMBER OF CHA 


CTERS 
027620 JSR PC.EOM sSET_E 
026374 JSR PC,OCOR SWAIT FOR _OCOR 
CLR R3 = CLEAR Bite COUNTER 
000022 DATACLK,22 CK_DAT. 
: MOVB (R4)+,R5 
010502 MOV R5,R2- S LOAD R2 WITH CHAR 


CHECK FIRST FOUR CHARACTER MESSAGE 
3IN THE BIT WINDOW (0,125,252,377) 


012737 120001 MOV #CRC16,XPOLY LOAD POLYNOMIAL 
024026 MOV R5,67$ SLOAD SOFT CHAR FOR BCC 
027236 JSR RS,SIMBCC CALCULATE SOFT BCC 
10 SSHIFT COUNT 
> CHARACTER 


1 0 OLD BCC 
027344 024030 MOV CALBCC,10$ ;LOAD SOFT BCC FOR NEXT SHIFT 
000001 6 LK 1 SHIFT ~ eiek TO BIT WINDOW 


65$ 
026342 PC,GETSI 
S 66$ 


:BR_IF OK (MARK) 
ERROR, BIT WINDOW WAS A SPACE 
ONT INUE 


BR 66$ > CONT 
026342 : ‘ LOOK AT BIT WINDOW 
66$ ;BR IF OK (SPACE) 
ERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 
oe “ah eB BITS YET 


BR_IF 
CLEAR BIT COUNTER 
[DEC CHARACTER COUNT 
7BR IF NOT DONE YET 


CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


027344 MOV CALBCC,RO :PUT BCC IN RO 
000001 DATACLK, 1 [SHIFT HARDWARE BCC 
ROR RO :SHIFT SOFT BCC 
69$ ‘BR IF CARRY CLEAR 
026342 PC,GETSI [LOOK AT BIT WINDOW 
70$ ‘BR IF OK (MARK) 
14 TERROR, CRC WRONG (SPACE) 


BR 70$ > CONT INUE 
026342 2 PC GETSI ;LOOK AT BIT WINDOW 
703 SBR IF OK (SPACE) 
ERROR, CRC WRONG (MARK) 


;BUMP BIT COUNTER 
seh it to BCC YET? 


IF NO 
024156 005003 >CLEAR BIT COUNTER 
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:CHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW 


St OAD ‘Aad ee WITH SOM 
000001 : > CLOCK TRANSIITTER 
RORB R2 SHIFT SOFT DAT 
30$ BR IF SPACE 
026342 Bf :LOOK AT BIT WINDOW 


SBR IF OK (MARK) 
CONT Ikan WINDOW WAS A SPACE 


31$ “C 
026342 : PC,GETSI [LOOK AT BIT WINDOW 
31$ ‘BR IF OK (SPACE) 
6 ZERROR,BIT WINDOW WAS A MARK 
R3 [BUMP BIT COUNTER 
000010 #10.R3 + DONE CHARACTER YET? 


BR IF 
R3 RESET BIT COUNTER 

000004 #4 ,RO a3 ¥ CHARACTER COUNTER 

030126 AME SDAT ,R4 ee ies: POINTER 

024272 11$ ; T BCC 

: (R4)+,R5 a 
024246 R5,R2 ;LOAD CHAR IN R2 
CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377) 


024250 120001 027342 #CRC16,XPOLY LOAD POLYNOMIAL 
024270 R5.76$ SLOAD SOFT CHAR FOR BCC 
027236 1 R5,SIMBCC eae con ale BCC 


11$: 0 SOLD BCC 
027344 024272 CALBCC,11$ SLOAD SOFT BCC FOR NEXT SHIFT 
000001 73$: LK 1 ;SHIFT DATA In TO BIT WINDOW 


a C 74$ "BR IF A SPACE 
026342 PC LOOK AT BIT WINDOW 


BR IF OK (MARK) 
todiar WINDOW WAS A SPACE 


BR 75$ s¢ 
026342 : [LOOK AT BIT WINDOW 
75 BR IF OK (SPACE) 
ERROR, BIT WINDOW WAS A MARK 


BUMP BIT COUNTER 
:DONE FULL 8 BITS YET 
>BR NO 


IF 
CLEAR BIT COUNTER 
024346 3 RO [DEC CHARACTER COUNT 
024350 BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
024352 027344 MOV CALBCC,RO ;PUT BCC IN RO 
15 000001 : 


DATACLK,1 SHIFT HARDWARE BCC 
ROR RO zSHIFT SOFT BCC 
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78$ 7BR IF CARRY CLEAR 
026342 PC,GETSI [LOOK AT BIT WINDOW 

79$ ‘BR IF OK (MARK) 
14 Z ERROR RC WRONG (SPACE) 


BR 79$ 
026342 : PC,GETSI [LOOK AT BIT WINDOW 
79$ [BR IF OK (SPACE) 
14 TERROR, CRC WRONG (MARK) 


R3 ;BUMP BIT COUNTER 
#20,R3 FINISHED BCC YET? 
77$ :BR_IF NO 
024420 005003 R3 CLEAR BIT COUNTER 
CHECK TO SEE IF TRANSMITTER IS MARKING 


024422 000001 2$: DATACLK, 1 :CLOCK TRANSMITTER 
004737 026342 Aa AT WINDOW 
BCS 3$ :1T SHOULD BE MARKING 
SERROR, BIT WAS A SPACE 
S BUMP BT COUNTER 


000007 
BNE 2$ :BR IF _NO 
000010 0 GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
R R3 OUNTER 


000001 
026342 
IS A MARK 
ERROR, TRANSMITTER IS NOT MARKING 
C R3 : INC BIT COUNT 
000020 ’ DONE YET? 
E 4$ ;BR IF NO. 


CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
WAS RECEIVED CORRECTLY (0,125,252,377) 


000001 DATACLK, GET LAST BIT IN RECEIVER 
000004 MOV #4,R :R3= CHARACTER 
030126 ;LOAD MESSAGE POINTER IN R2 
027202 : [WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


000004 MOV :PUT ‘FOUND'' IN R 


sPUT ‘EXPEC R5 
21S RECEIVED DATA CORRECT? 


7BR IF YES 

RECEIVE DATA ERROR 

DEC CHARACTER COUNT 
IF NOT DONE YET 


CHECK TO SEE THAT IN BCC MATCH IS SET 
sAND THAT THE BCC WAS RECEIVED CORRECTLY 


024544 0047 027202 JSR PC, INRDY WAIT FOR INRDY 
024550 ROMCLK sNEXT WORD IS INS 
024552 021204 021204 GET FIRST HALF O 


-0oO—-—-00-000— 
BORER co URENAE 
ES=AVSSSeSeuss= 


024542 


Mar - Teas ROMCLK PC=5304 
CRC 
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4609 024554 116137 000004 001252 MOVB 4(R1), TEMP3 :PUT IN TEMP3 

4610 024562 042737 177400 001252 BIC #177460. TEMP3 =: CLEAR HI BYTE 

4611 024570 004737 027202 JSR PC, INRDY [WAIT FOR INR 

4612 024574 104414 ROMCLK [NEXT WORD id INSTRUCTION, ROMCLK PC=5304 

4613 024576 021244 021244 ne 

4614 024600 016104 000004 MOV 4(R1) Rs :PUT ‘FOUND’ IN R4 

4615 024604 042704 000376 BIC #376 :CLEAR UNWANTED 

4616 024610 012705 000001 MOV ai Re [PUT ‘EXPECTED’ IN RS 

4617 024614 120504 CMPB sR. _RG [1S IN BCC MATCH SET? 

4618 024616 001401 BEQ 50$ 

4619 024620 104015 HLT 15 :IN BCC MATCH ERROR 

4620 024622 508: 

4621 024622 104414 ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4622 024624 021204 021204 'GET LAST HALF 

4623 024626 116137 000004 001251 MOVB 4(R1),TEMP2+1 PUT IN TEMP. 

4624 024634 042737 000377 001250 BIC #377, TEMP2 [CLEAR LO BYTE 

4625 024642 053737 001250 001252 BIS TEMP2, TEMP3 :16 BIT BCC NOW IN TEMP3 

4626 024650 023737 027344 001252 CMP CALBCC,TEMP3 IS IT CORRECT? 

4627 024656 001401 BEQ 45$ [BR IF OK 

4628 024660 104027 HLT 27 

4631 ;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000) 

4632 024662 004737 027202 45$: JSR PC, INRDY WAIT FOR INRDY 

4633 024666 104414 ROMCLK SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4634 024670 021204 021204 GET RECEIVE DAT. 

4635 024672 016104 000004 MOV 4(R1) ,R4 :PUT ‘FOUND’ IN Rs 

4636 024676 005005 CLR R5 [PUT ‘EXPECTED'’ IN RS 

4637 024700 120504 CMPB R5S,R4 31S RECEVIED DATA CORRECT? 

4638 024702 001401 BEQ 42$ ‘BR IF YES 

4639 024704 104010 HLT 10 ‘RECEIVE DATA ERROR 

4641 :CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 

rs 941 sWAS RECEIVED CORRECTLY (0,125,252,377) 

4644 024706 012703 000004 42$: MOV #4 ,R3 ;R3=CHARACTER COUNT 

4645 024712 012702 030126 MOV #MESDAT .R2 “LOAD MESSAGE POINTER IN R2 

4646 024716 004737 027202 43$: JSR PC, INRDY ay | FOR INRDY 

4647 024722 104414 CLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4648 026724 021204 021204 

9 024726 016104 000004 MOV 4(R1) RS PUT ‘FOUND’ IN R4 

4650 024732 112205 MOVB = (R2)+.R5 [PUT ‘EXPECTED’ IN RS 

4651 024734 120504 CMPB sR, RG SIS RECEIVED DATA CORRECT? 

4652 024 001401 BEQ 44$ ‘BR IF YES 

4653 024740 104010 HLT 10 SRECEIVE DATA ERROR 

4654 024742 005303 44$: DEC R3 [DEC CHARACTER COUNT 

4655 024744 001364 BNE 43$ ‘BR IF NOT DONE YET 

4657 :CHECK TO SEE THAT IN BCC MATCH IS SET 

1028 ‘AND THAT THE BCC WAS RECEIVED CORRECTLY 
024746 004737 027202 JSR PC, INRDY :WAIT FOR INRDY 

4661 024752 104414 ROMCLK *NEXT WORD IS a i: a ROMCLK PC=5304 
024754 021204 021204 GET FIRST HALF OF CRC 

4663 024756 116137 000004 001252 MOVB 4<21), TEMP3 SPUT IN TEMP3 

4664 026764 042737 177400 001252 BIC wi77ab0e TEMP?, CLEAR HI BYTE 
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4665 024772 004737 027202 JSR PC, INRDY ;WAIT FOR INRDY 

4666 024776 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4667 025000 021244 021244 g 

4668 025002 016104 000004 MOV 4(R1) oo PUT *FOUND’’ IN RG 

4669 025006 042704 000376 BIC #376,R CLEAR UNWANTED BITS 

4670 025012 012705 000001 MOV HRS PUT ‘EXPECTED’' IN R5 

4671 025016 120504 CMPB R5,R4 71S IN BCC MATCH SET? 

4672 025020 001401 BEQ 518° 

4673 025022 104015 HLT 3: IN BCC MATCH ERROR 

4674 025024 51$: 

4675 025024 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4676 025026 021204 021204 [GET LAST HALF 

4677 025030 116137 001251 MOVB 4(R1), TEMP2+1 ;PUT IN TEMP2 

4678 025036 042737 000377 001250 BIC #377, TEMP2 ;CLEAR LO BYTE 

4679 025044 053737 001250 001252 BIS TEMP2, TEMP3 :16 BIT BCC ve 74 IN TEMP3 

4680 025052 023737 027344 001252 CMP CALBCC, TEMPS 71S IT CORRECT? 

4681 025060 001401 BEQ 5$ :BR IF OK 

4682 025062 104027 HLT 27 

4683 025064 104400 5$: SCOPE ;SCOPE THIS TEST 

4685 

4686 pkakkkkkkkkkakeeereeekeeeeae TEST 54 eee ae eee eee eee eek kh 

4687 ; *EMPTY SILO TEST 

4688 ;*LOAD SILO WITH 2 get 7 4 CHAR MESSAGE, SINGLE CLOCK 
UNTIL THE SILO a EMP LOAD 4 MORE CHARACTERS THE 

4690 :*SILO. GIVE MORE TICK 4s ” AND VERIFY THAT ONLY THE FIRST 

4691 :*4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR 

4692 SERRE REE 

4693 

—_ : TEST 54 

4696 025 012737 000054 001226 TST54: MOV #54,TSTNO 

4697 025074 012737 025320 001216 MOV #TSTS5 NEXT 

4698 :R1 CONTAINS BASE DMC11 ADDRESS 

4699 025102 104412 MSTCLR oot Ts CLEAR DMC11 

4700 025104 012711 004000 MOV #B1T11,(R1) T LINE UNIT LOOP 

4701 025110 012702 030126 MOV AHMESDAT ,R2 ‘BD POINTS TO + aa 

4702 025114 012700 000004 MOV #4 ,RO [RO = CHAR C 

4703 025120 004737 027510 JSR PC,SYNLD ;LOAD FILO orth TWO SYNCS 

4704 025124 004737 026526 JSR PC ,OUTRDY WAIT FOR OUTRDY 

4705 025130 004537 027644 JSR R5.MESLD [LOAD MESSAGE IN SILO 

4706 025134 030126 ME SDAT START OF MESSAGE 

4707 025136 000004 4 ; CHARACTER COUNT 

4708 025140 004737 026374 JSR PC ,OCOR WA T FOR OCOR 

025144 104415 000065 DATACLK, 65 sCLOCK DATA (EMPTY SILO) 

4710 025150 004537 027644 JSR R5,MESLD PUT MORE CHARACTERS IN SILO 

711 025154 030126 ME SDAT 

4712 025156 000004 4 

4715 025160 004737 026374 JSR PC,OCOR 

4714 025164 104415 000005 DATACLK, 5 ;CLOCK UNTIL RTS IS CLEARED 

4715 025170 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

16 025172 021264 021264 3GET RTS 

4717 025174 032761 000040 000004 BIT #B1T5,4(R1) :IS IT CLEAR? 

4718 025202 001401 BEQ 5$ 3BR IF YES 

4719 025204 104034 HLT 34 sERROR, RTS NOT CLEAR 

4720 025206 104415 000041 5$: DATACLK, 41 ;CLOCK XMITTER SOME MORE 
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027202 1$: JSR PC, INRDY : OK ge CHECK WHAT WAS RECEIVED 
NEXT WORD IS +: lmatatan ROMCLK PC=5304 
:GET teh DAT. 


SPUT IT_IN R4 

R5 = EXPE CTED*’ 
21S DATA CORRECT? 
3 F OK 


000004 MOV 4(R1) RG 


3338 


1$ 
027202 : PC, INRDY 


ee 


INRDY 
sNEXT WORD ”. bo » lamest ROMCLK PC=5304 
3GET FS eo 

iy get :PUT IT FOU ey 


000004 
000377 = EMPECTED 
a SEE oO" 
‘BR IF OK 
13 ;ERROR, TRANSMITTER DID NOT ABORT 
027202 : sWAI : FOR INRDY 
SNEXT WORD IS +7 Nicaea ROMCLK PC=5304 
2 i A pe 


000004 MOV sPUT IT 
000377 3R5 = TeXPECTEDY 
fF nd SEE 377 


:BR IF OK 
ERROR, TRANSMITTER DID NOT ABORT 
SCOPE THIS TEST 


LINSSeSu sve 
MALRk 3 
SNOSYUNONEN 
REYSCRARREL 
fnNO—RU nN 


pekkekakkkhekek keen TEST 55 aaa a eee ee eee eee eee 
>*HALF DUPLEX TEST 

>*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
;*MESSAGE. VERIFY THAT INACTIVE AND IN-READY ARE CLEAR 


DARA REAR R EEE EERE 
TEST 55 


025320 000055 : #55, TSTNO 
025326 025436 MO A#TSTS6,NEXT 
:R1 Ser Eel ADDRESS 


000012 #12,R2 
004000 #B1T11,(R1) 
000020 MO #B1T4,4(R1) 


R 
—=A=—0— 


—=—O00-— OO 
QANNNWSES Pon 


Nw 


027510 S PC,SYNLD 
PC,QUTRDY 
R5 ,MESLD 


026374 J PC,OCOR 
000073 


eanus 


; SSAGE 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 sREAD LU=12 


025412 
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000004 MOV 4(R1) ,RG ;PuT on tae 
000257 * Sohne gy Pmt BIT Ss 


7m HIN-ACTIVE. AND IN-RDY SHOULD BE CLEAR 
35 ERROR BOTH ARE NOT CLEAR 


petaaeenkeeeeeeeeeneeaeeeeee TEST 56 seanntaneaaeencenaeeennenee 
> *DDCMP_CABLE DATA TEST 
:*THIS TEST LOADS OUT SILO WITH te tak to 


; *RECEIVED DATA IS VERIFIED AS IS_IN BCC MATCH 
; *LOOP=BACK K CONNECTOR MUST SE ON TO RUN THIS TEST 


TRRAARAAAAARAAAAEAAEAAAEARARAEARERRARARARAERRAAEARAREREEHAREHRHEEAE 
TEST 56 


#56,TST 


5436 2 TSTNO 
MTST5S7,NEXT 


02 
025444 
025452 


oo 


:R1_ CONTAINS BASE DMC11 ADDRESS 
sMASTER_ CLEAR DMC11 
#BIT14,STATI :SKIP TEST IF NO 
3$ [LOOPBACK CONNECTOR ON 
#B1T11,(R1) 2 SET LINE UNIT LOOP 
PC, SYNLD 


PC,SYNLD 
#CRC16,XPOLY 
6$ 


ooo— 
858 


So 
aa 


#16. ,R3 
WEL TBAT R2 R 
0255 : (R2)+ 5$ ;LOAD CHAR FOR SOFT BCC CALC. 
027236 R5, SIMBCC *CALC SOFT BCC 
SSHIFT COUNT 
* CHARACT ER 
: ;OLD BCC 
027344 025536 MOV CALBCC ,6$ ;LOAD OLD BCC 
R3 ;DEC COUNT 
;BR IF NOT DONE YET 


eL SILO 
sMESSAGE ADDRESS 
. : CHARACTER COUNT 
027620 PC,EOM :LGAD AN EOM 
027644 JSR R5 ,MESLD LOAD SILO 
sMESSAGE ADDRESS 


. : CHARACTER COUNT 

027620 PC.EOM LOAD AN EOM 

027644 JS R5 ,MESLD LOAD SILO 
sMESSAGE ADDRESS 


: CHARACTER COUNT 
;LOAD AN rg 


-—-Oo0O 
xh xd oad 


7$ 
027644 JSR R5,MESLD 


027620 R PC,£OM 
004 026374 OCOR ‘WAIT FOR OCOR 
025622 (Ri) [CLEAR | INE UNIT LOOP 
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025624 000003 #3,RO = MESSAGE COUNT 
#16. ,R3 ?R3= CHARACTER COUNT 
301 é MOV #FLTDAT,R2 [LOAD MESSAGE POINTER IN R2 
02720 : SR PC, INRDY WAIT FOR INRDY 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:GET DATA FROM IN SILO 
000004 MOV 4(R1) RG PUT CHARACTER IN ‘FOUND’ 
(R2)+.R5 SPUT "EXPECTED'’ IN RS 
R9 -Rs 1S RECEIVED DATA CORRECT 


7BR_IF OK 
25 :DATA ERROR 


R3 2DEC gg + COUNT 
5 BNE 1$ BR _IF NOT DONE THIS MESSAGE 
025670 #16. ,R3 RESET CHARACTER COUNT 


CHECK TO SEE THAT IN BCC MATCH IS SET 
sAND THAT THE BCC WAS RECEIVED CORRECTLY 


025674 027202 PC, INRDY :WAIT FOR INRDY 
025700 [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
‘GET FIRST HALF OF CRC 
000004 MOVB  4(R1),TEMP3 “PUT IN TEMP3 
177400 #177400, TEMP3 CLEAR HI BYTE 
027202 JS PC, INRDY [WAIT FOR INRDY 
ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


000004 MO 4(R1) ,R4 "FOUND’’ IN R 

000376 37 CLEAR UNWANTED BITS 

000001 “PUT "EXPECTED'’ IN R5 
21S IN BCC MATCH SET? 
2 IN BCC MATCH ERROR 


sNEXT WORD IS_ INSTRUCTION, ROMCLK PC=5304 
;GET LAST HALF 


Seu 


R&R 


3 85 
Ww un 


4(R1), -TEMP2+1 
#377, TEMP2 0 BYTE 

TEMP2, FEMS -16 BIT BCC NOW IN TEMP3 
CALBCC,TEMP3  :IS IT CORRECT? 

4$ “BR IF OK 


27 
030132 : #FLTDAT,R2 RESET MESSAGE POINTER 
RO :DE we COUNTER 


BR IF NOT DONE 
SCOPE THIS TEST 


[ekkkkkkkkakkekkerkeKnekKneh TEST 57 ex eae eee eee ee eee eee eee 
;*DDCMP CABLE DATA TEST 
; S SILO WITH THE FOLLOWING: 

84 Mt 59 DATA CHARACTERS,EOM WI CHARACTER 

+ * THE DATA IS TRANSMITTED OVER THE CABLE tie THE INTERNAL CLOCK 
2 "RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

CSenneeete CONNECTOR MUST BE ON TO RUN THIS TEST 


[RRRRKRRERERER EERE RRR RRR ERE RR ERR RRR RRR RRR 
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TEST 57 


#57 ,TSTNO 
MOV #.EOP NEXT 


oo 


3R1 CONTAINS BASE DMC11 ADDRESS 


MSTCLR sMASTER CLEAR DMC11 
BIT #B1T14,STAT1 :SKIP_ TEST IF NO 
LOOPBACK CONNECTOR ON 
#81T11,(R1) SET LINE UNIT LOOP 
PC,SYNLD SLOAD 2 S$ a 


— —s 
ay 
WW 
NNNN-WNIPDOD ON 


PC. SYNLD 
#CRC16,XPOLY 


8 


#59. ,R3 
AMESDAT R2 
(Re) +, 5$ 
nes SIMBCC 


-oOo 
pe 
Morongo 


: 0 
027344 026124 Cee C,6$ 


; OUNT 
BN 7$ BR IF NOT DONE YET 
027644 JSR R5 ,MESLD LOAD SILO 
sMESSAGE ADDRESS 
: CHARACTER COUNT 
027620 


LOAD AN EOM 
026374 WAIT FOR OCOR 
(R1) CLEAR LINE ay! ant 
000073 . sRO= CHARACTER 
030126 : LOAD io POINTER IN R2 
027202 : JS PC, INRD WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sGET DATA FROM IN SILO 
000004 MO 4(R1) .R4 [PUT CHARACTER IN * FOUND"’ 
(R2)+,R5 sPUT ‘EXPECTED’’ IN R5 
Tae 21S as ee DATA CORRECT 


25 DATA. ERROR 


00 RO :DECREMENT COUNTER 
026220 BNE 1$ ;BR IF NOT DONE 


CHECK TO SEE THAT IN BCC MATCH IS SET 
zAND THAT THE BCC WAS RECEIVED CORRECTLY 


027202 JS PC, INRDY ;WAIT FOR INRDY 
[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
‘GET FIRST HALF OF CRC 

4(R1), TEMP3 “PUT IN TEMP3 

#177400, TEMPS :CLEAR HI BYTE 


026222 


WW 
=n 


-OoO-— 
R 


177400 
027202 


2 


;WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


000004 MOV 4(R1) ,R4 ;PUT "FOUND'' IN R4 


SW 
SSNNN 


Sks8R 
ASR 
MR NN=W RN 


R 


026256 





CZDME_ _MACY11_ 30A(1052) 11-SEP-78 12:45 PAGE 94 
CZDMEC .P11 11-SEP-78 12:38 BASIC RECEIVER TESTS 


000376 ;CLEAR UNWANTED BITS 
000001 MOV #1,R PUT ‘EXPECTED’ IN RS 
21S IN BCC MATCH SET? 


: IN BCC MATCH ERROR 


ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
[GET LAST HALF 

4(R1), TEMP2+1 ‘PUT IN TEMP? 

#377, TEMP2 :CLEAR LO BYTE 

TEMP mp3 § FEMp MP3 :16 BIT BCC NOW IN TEMP3 

CALBCC,TEMP3 IS IT CORRECT? 

3$ ‘BR IF OK 


27 ‘ 
3$: s;SCOPE THIS TEST 


=--0000--0-- = 
SESLARSLS SSRLF 
SRS 4 Ww 


THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH. 
SNITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4_LU 17 


;PORTS_ 
153040 026372 MO ro »NITCH :STORE LU 17 
NITCH 
026372 F +> See sPUT SI IN THE CARRY BIT 


g 
gS 


1 
0 
0 
1 
1 
1 


RRE 
Morea 
OWA 
NNNNN 


8 


0263 
026372 


026374 
THIS SUBROUTINE SPINS ON OCOR 


026374 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026376 021364 PORTS LU 17 
026400 153004 ~; aaa 31S OCOR SET? 


026406 BR IF NO 
026410 00020 PC OK OCOR IS SET, GO BACK 


THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC 
CHARACTERS PASSED TO IT _IN_THE WORD AFTER THE JSR CALL 
SAND A NON=SYNC CHARACTER (301) 


001246 MOV a(SP)+,TEMP1 GET COUNT 

000002 ADD #2,-(SP) sADJUST STACK 

000026 MOV #26,4(R1) Ae 4 PORT4 

ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122114 ; LOAD be REGISTER 

SR Pc ,OUTRDY WAIT FOR OUTRDY 


026526 J 
000001 MOV #1,4(R1) LOAD PORTS 
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NEXT WORD IS INSTRUCTION, PC=5304 
:SET SOM 


900026 000004 MO #26,4(R1) sLOAD PORT4 
R sNEXT WORD IS INSTRUCTION, PC=5304 
LOAD OUT DATA 
001246 TEMP1 sALL DONE? 
BN 1$ 


:BR_IF NOT 
026526 PC ,OUTRDY WAIT FOR OUTRDY 
000004 4(R1) st PORT4 
sNEXT WORD IS INSTRUCTION, PC=5304 
SET SOM 
000301 MOV #301,4(R1) sLOAD PORTS 
NEXT ar BATA INSTRUCTION, PC=5304 


;LOAD 
026374 S =! -OCOR [WAIT FOR OCOR 


asousssesxs 


026526 
THIS SUBROUTINE SPINS ON OUT READY 


026526 001256 TEMPS :CLEAR TIMER 
: NEXT WORD | IS INSTRUCTION, PC=5304 
000020 152646 IT WBIT4,@DMPO4 = 21S ouT Oy SET? 
2$ ‘BR IF YES 


BN : 
001256 TEMPS 7 IN a TIMER 
1$ ;KEEP CHECKING IF NOT DONE 
36 ERROR, OUT READY NOT SET 
026556 3 PC 


026560 
ay SUBROUTINE LOADS THE SILO WITH 3 SYNCS 
AND THE CHARACTER PASSED TO IT. 


026560 a(SP)+, TEMP2 GET CHARACTER 
265 000002 #2,-(SP) sADJUST STACK 
#3, TEMP1 iy ly 3 SYNCS 


#26,4(R1) $i 
:NEXT WORD” IS_INSTRUCTION, PC=5304 
LOAD SYNC REGISTER 
026526 : S PC ,OUTRDY [WAIT FOR QUTRDY 
000001 #1,4(R1) [LOAD PORT4 
pa IS INSTRUCTION, PC=5304 


000026 MO #26,4(R1) :LOAD PORT4 

sNEXT WORD IS INSTRUCTION, PC=5304 
LOAD SUT DATA 

001246 EC wo sALL DONE? 


E :BR_IF NOT 
026526 : PC ,OQUTRDY WAIT FOR OUTRDY 
001250 TEMP2 ,4(R1) Lo PORT4 
sNEXT WORD iS INSTRUCTION, PC=5304 
:LOAD OUT DAT 


ard 
as) 


_—- OO 
NENVVR 


oN 


Nee 
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026664 004737 026374 JSR . WAIT FOR OCOR 
026670 000207 RTS PC 
3 THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 
001250 a(SP)+, TEMP2 GET CHARACTER 
000002 #2, 5(SP) sADJUST STACK 
026526 PC,OUTRD ;WAIT FOR OUTRDY 
001250 000004 TEMP2, acR1) ; T4 
WORD + INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DAT. 
026526 PC ,OUTRDY ; FOR OUT: RDY 
OMC ; WORD IS INSTRUCTION, ROMCLK PC=5304 
GARBAGE CHAR 


el 
026374 — ; FOR OCOR 


SILOLD: 

THIS SUBROUTINE FILLS THE OUT SILC 

> WITH A BINARY COUNT PATTERN 

001250 #73, TEMP2 ;LOAD 
SCHAR iF 


sFIR 
4$ 7BR 
7BR 
sADD 


COUNT 

T TIME HERE? 
F ane? 
pd 


000073 
027176 
2$ 


000002 001250 #2,TEMP2 "0 woe Ves COUNT 
001246 #3, TEMP) SET FOR 2,5 
LOAD PORT4 


000003 
000026 000004 MOV #26,4(R1) 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
. sLOAD SYNC REGISTER 
926526 : PC ,OUTRDY :WAIT FOR OUTRDY 
000001 4 


#1,4(R1) ;LOAD PORT 
NEXT - om IS INSTRUCTION, ROMCLK PC=5304 


000026 MOV #26,4(R1) LOAD PORTS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

ow OUT DATA 

001246 TEMP1 sALL DONE? 
BN 1$ 


‘BR IF NOT 

026526 : PC ,OUTRDY WAIT FOR OUTRDY 

027176 000004 SCHAR ,4(R1) LOAD PORT4 ' 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DATA 

027200 ala SBITSTUFF ??? 


:BR IF NO 
027176 027076 SCHAR , 5$ :1T IS SDLD SO CHECK BITSTUFF ING 
027726 4 RS,STFFCL :ADD ACTER” STUFF CLOCK TICKS 


:CHIFT COUNT 
027176 : SCHAR NEXT CHARACTER 
000400 027176 #400, SCHAR TALL DONE? 


001250 TEMP2 :DECREMENT COUNT 


: {88nNe= 
NNNNOf NAN 


kk ed ed ed 3 od 2) I = 


PVANAPAIAAVIAV AVIV 
s=Ssesesessss$ 


S8us 
NWANNO 


027116 
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oor ge 2$ 7BR_IF NOT DONE 
026374 3$: oo WAIT FOR OCOR 


027176 4$: SCHAR : START PATTERN AT ZERO 
177777 +=027200 cite SET BITSTUFF FLAG 


030124 

000002 001250 #2, TEMP2 
000001 000004 MOV #1,4(R1) N PORTS 

youn Is INSTRUCTION, ROMCLK PC=5304 


“NEXT WORD IS a ROMCLK PC=5304 
;LOAD GARBAGE ¢ 
60 LOAD SILO 

SCHAR: 

STUFLG: 


027202 INRDY: 
: THIS SUBROUTINE SPINS ON _INRDY 
: IF INRDY FAILS TO SET THE DELAY TIMES OUT AND AN 
sERROR IS REPORTED. FOR BETTER SCOPE LOOPS iy 
DELAY CAN BE MADE SHORTER BY ALTERING THE 
INITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER 
:THE SHORTER THE DELAY. 0 IS THE LONGEST DELAY. 


027202 000000 001246 ' MOV #0, TEMP1 SET UP DELAY COUNTER 


cOGATe TU? INSTRUCTION, ROMCLK PC=5304 
000020 152170 BIT #B1T4 ,aDMPO4 :IS og?! SET? 
BN 2$ :BR IF YES 


001246 
SERROR,NO INRDY 
RETURN 


THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
2 IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE 
STATE OF THE LSB OF THE BCC IS RETURNED IN THE C BIT. 


:SAVE_ RO ON STACK 
TEMP] = SHIFT COUNT 
STEMP2 = CHARACTER 
-CALBCC = OLD BCC 
027344 : CALBCC ,RO :PUT OLD BCC IN RO 


027344 CALBCC :SHIFT OLD BCC 
001250 TEMP2 ; SHIFT CHARACTER 
0 ;ADD CHAR CARRY TO OLD BCC 
;PUT BITO TO CARRY BIT 
2$ :CARRY IS FEEDBACK BIT 
027342 SIF FEEDBACK = 1 
027304 027344 : RO SEXCLUSIVLY OR XPOLY TO CALBCC 
027310 027342 027344 XPOLY, CALBCC 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


ADXRAO OADM AAU ES BES EERE EWAWAWWWAGS MNNNNNNN 2 2 mM Pe es 
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027316 050037 027344 RO, CALBCC 
027322 001246 2$: TEMP1 :DEC SHIFT COUNT 
BN IF NOT rin 


1$ 
027344 CALBCC,RO “PUT RESULT IN RO 
sSHIFT BITO TO CARRY 

(SP) +,RO “RESTORE RO 
R5 ;RETURN 

XPOLY: 0O 

CALBCC: 0 

LRC8=200 

CRC16=120001 

CRC. CCITT=102010 


BCCLD: 
dang 8 SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS 
[WITH SOM SET, AND ONE CHARACTER PASSED TO IT 
‘WITH THE SOM BIT CLEAR (ENABLE CRC) 


001250 a(SP)+, TEMP2 GET CHARACTER 

000002 #2,- + {SP ZADJUST STACK 

000002 001246 #2, TEMP SET FOR 2 SYNCS 

000026 000004 MOV #26, GERI) [LOAD PORT4 
sNEXT WORD IS_ INSTRUCTION, ROMCLK PC=5304 
sLOAD SYNC REGISTER 

026526 : JSR PC ,OUTRDY [WAIT FOR OUTRDY 

000001 #1,4(R1) [LOAD PORT4 

oT an IS INSTRUCTION, ROMCLK PC=5304 


= 
w 
Oo 
= 


000026 MO #26,4(R1) 


a ee ee ee eee | 
SRSGRGLGOLLBBVSSSHSAB ASIAN 


R 
& 
woo 


WG 
NNO f-N-NOFS 


LOAD PORT4 \ 
NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DAT 
001246 TEMP1 ZALL DONE? 

BN 1$ 


3BR IF NOT 

026526 PC ,OUTRDY WAIT FOR OUTRDY 

001250 000004 TEMP2 ,4(R1) [LOAD PORT4 
NEXT WORD ie INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DAT 

026374 Sareea [WAIT FOR OCOR 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


SER8 


0 
027456 


:THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 
;BCC LSB AND PUTS IT IN THE CARRY BIT 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
PORTS LU-17 
151722 . ;PUT QD IN CARRY 
RT ;RETURN 


sete 


027470 


027472 
: THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
;BCC LSB AND PUTS IT IN THE CARRY BIT 
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5225 027472 104414 ROMCLK sNEXT yt we AS INSTRUCTION, ROMCLK PC=5304 
$226 027474 021364 021364 ;PORT4 
S227 027476 106177 151710 ROLB @DMP04 PUT a0" TN CARRY 
$228 027502 106177 151704 ROLB @DMP04 ‘put QI IN CARRY 
5229 027506 000207 RTS PC : RETURN 
5230 
5231 
5232 027510 SYNLD: 

5233 THIS SUBROUTINE LOADS OUT SILO WITH 
ase 72 SYNC CHARACTERS WITH SOM SET 
5236 027510 012737 000002 001246 MOV #2, TEMP1 ;LOAD COUNTER FOR 2 SYNCS 
5237 027516 012761 000026 000004 MOV #26,4(R1) ;PORT 4 26 
027524 104414 ROMCLK NEXT Gone IS INSTRUCTION, ROMCLK PC=5304 
5239 027526 122114 122114 ‘TON § REG 
5240 027530 004737 026526 1$: JSR PC ,OUTRDY “WAIT POR OUTRDY 
5241 027534 012761 000001 000004 MOV #1,4(R1) [LOAD PORT4 
$242 027542 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$243 027544 122111 122111 :SET SOM 
244 027546 012761 000026 000004 MOV #26,4(R1) 3PORT_26 
5245 027554 104414 ROMCLK :NEXT™ WORD IS INSTRUCTION, ROMCLK PC=5304 
52 027556 122110 122110 :LOAD OUT DATA WITH SYNC 
5247 027560 005337 001246 DEC TEMP1 “DECREMENT COUNTER 
$248 027564 001361 BNE 1$ ‘BR IF NOT DONE 
5249 027566 000207 RTS PC RETURN 
5250 
5251 
5252 027570 SOM: 
5253 THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
o52¢ GARBAGE CHARACTER (0) 
5256 027570 004737 026526 JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
5257 027574 012761 000001 000004 MOV #1,4(R1) 7PORT4_1 
5258 027602 104414 ROMCLK NEXT BORD IS INSTRUCTION, ROMCLK PC=5304 
5259 027604 122111 122111 SET SOM 
5260 027606 005061 000004 CLR 4(R1) CLEAR DATA CHAR 
5261 027612 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5262 027614 122110 122110 ;LOAD GARBAGE CHARACTER 
5263 027616 000207 RTS PC +RETURN 
5264 
5265 
5266 027620 EOM: 
5267 THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A 
aces + GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 
5270 027620 004737 026526 JSR PC ,OQUTRDY WAIT FOR OUTRDY 
5271 027624 012761 000002 000004 MOV #2,4(R1) sPORT4 2 
5272 027632 104414 ROMCLK jNEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
5273 027634 122111 122111 SET EOM 
5274 027636 104414 ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5275 027640 122110 122110 LOAD GARBAGE CHARACTER 
5276 027642 009207 RTS PC RETURN 
5277 
5278 
5279 027644 MESLD: 


5280 2 THIS SUBROUTINE LOADS SILO WITH MESSAGE 
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: THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 


RO,-(SP) 
(R5)+,RO <0 ne SSAGE POINTER 
001246 (RS) TEMP1 : TEMP1=CHARACTER COUNT 
026526 : OUTRDY [WAIT FOR OUT RDY 
000004 (RODS GERI) ‘LOAD PORT4 WITH CHARACTER 
:NEXT WORD 1s S INSTRUCTION, ROMCLK PC=5304 


nmr 
NVIV 
SVs 
NOS -NNOO 


001246 DEC + ti 


$ 
026374 PC,OCOR 
(SP)+,RO RESTORE RO 
R5 TURN 


; THIS SUBROUTINE SETS IN CLR AND OUT CLR 
[CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 


#B1T7,4(R1) LOAD PORT4 
cay an cin” INSTRUCTION, ROMCLK PC=5304 


[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
*SET OUT CLR! 
027724 RETURN 


3 3 OE 


027726 STFFCL: 
2 THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 


027726 RO,-(SP) :SAVE RO 
0277 (R5)+,RO :PUT CHAR IN RO 
001252 (R5) +. TEMP3 ‘PUT SHIFT COUNT IN TEMP3 
: RO LOOK ar NEXT BIT 
‘BR IF A MARK 
:1T WAS A SPACE, CLEAR 1°S COUNTER 
* CONT INUE 
030124 2$: BITC -INC CONSECUTIVE 1°S COUNTER 
000005 030124 MP cP :IS 17 5 YET? 


030124 
000001 
001252 


030124 


ieteree 


STFFCK: 
: THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
71S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
71S THE Cri:ARACTER, SECOND ARGUMENT IS SHIFT COUNT. 


DMAAAAANY 
Wr 


Rute 
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RO,-(SP) ZSAVE RO 
(R5)+,RO ‘PUT CHAR IN RO 
001252 (R5) +. TEMP3 :PUT SHIFT COUNT IN TEMP3 
RO ‘SHIFT OUT NEXT BIT 
2$ BR IF IT IS A MARK 
030124 BITCON ZIT WAS A SPACE, CLEAR 1°S COUNTER 
3$ : CONT INUE ) 


BR He 
030124 2$: BITCON : INC aT I'S COUNTER 
000005 030124 #5 ,BITCON 75 INA YET? 


BN :BR IF NO 
030124 CLR BITCON :YES, SO START OVER 
000001 EXTRA TICK TO STUFF ZERO 
026342 JSR a WINDOW 


AT 
its IT A ZERO, BR IF YES 
30 : ERROR ZERO WAS NOT STUFFED 
001252 : TEMP3 ; IFT COUNT 
BN 1$ 
(SP) +,RO 
R5 


-—-=00 
oO 


CTSDLY: 
THIS SUBROUTINE WASTES TIME UNTIL CTS SETS, 
BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 


RO,-(SP) ZSAVE RO 
000032 #32,RO ‘LOAD RO WITH COUNT 
151074 151072 1$: @TKCSR,@TKCSR  :WASTE TIME 
RO “DECREMENT COUNTER 
-DO IT AGAIN IF NOT = 0 


1$ : 
(SP) +,RO RESTORE RO 
PC RE TURN 


FLAG: *B<01111110> FLAG CHARACTER 
BITCON: 
MESDAT: .BYTE 0,125,252,377 


FLTDAT: .BYTE 1,2,4,10,20,40,100,200, 376,375,373, 367,357,337,277,177 


2s 
o— 


STUFDT: . 100,149,160,170,3,300,174,176,177,1 


S 


~~ IW 
N NVIN 


365,347,317,209,0,377,377,377,200,37 


Bere RRR RE RE 


030176 
030234 
030277 
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CZDMEC .P11 T1-GEP 12:38 SUBROUTINES SEQ 0102 
030343 377 044514 042516 EM4: -ASCIZ SBbR VL INE UNIT INTERNAL ee FAILURE / 
030405 377 051124 047101 EMS: -ASCIZ <377>/TRANSMITTER ti. ERR 
030435 377 042522 042503 EM6: eASCIZ <377>/RECEIVER TEST/ 

030454 051377 041505 044505 EM?: -ASCIZ Seppe ieaA Tien DATA_ERROR/ 
030501 377 047515 042504 EM10: .ASCIZ <377>/MODEM SIGNAL ERR 
030525 377 051124 047101 EM11: .ASCIZ <37 7>/ TRANSMITTER CRC _ERROR/ 
030554 051577 041505 044505 EMI2:  .ASCIZ <377>/RECEIVER CRC ERR 
0 0447 020116 041502 EM13:  .ASCIZ <377>/IN BCC MATCH ERROR (LU REG 
0 QO 052377 040522 051516 EM14: .ASCIZ ph Ay gy MES ad TO GO TO MARK STATE/ 
030710 0417 041101 042514 EM15:  .ASCIZ <377>/CABLE DATA TEST/ 
030731 77 046106 043501 EM16: .ASCIZ <377>/FLAG ERROR/ 
030745 377 baliss 047101 EM17: .ASCIZ <377>/TRANSMITTER cAI ee TO STUFF A ZERO/ 
031011 053523 052111 EM20: .ASCIZ <377>/SWITCH PAC TEST 
031032 040777 047502 052122 EM21:  .ASCIZ <377>/ABORT OR/ 
31047 3 051124 047101 EM22: .ASCIZ €3775/ TRANSMITTER ERROR/ 
031072 044377 046101 020106 EM23: ASCIZ <377>/HALF DUPLEX TEST/ 
031114 047777 052125 051040 EM24: ASCIZ <377>/OUT READY NOT SET/ 
031137 377 047111 051040 EM25: ASCIZ <377>/IN READY NOT SET/ 
031161 377 054105 042520 DH1: ASCIZ <377>/EXPECTED FOUND/ 
031202 042777 050130 041505 Dke: ASCIZ <377>/EXPECTED FOUND  LU-REGISTER/ 
031240 041777 510 040522 DHS: ASCIZ <377>/CHARACTER BIT THAT FAILED/ 
031276 041777 051117 042522 DH4: ASCIZ <377>/CORRECT CRC BIT THAT FAILED/ 
1336 042777 050130 041505 DHS: ASCIZ <377>/EXPECTED FOUND  SHIFT/ 
031370 042777 050130 041505 DH6: ASCIZ <377>/EXPECTED FOUND CHARACTER = SHIFT/ 
031436 041377 047514 045503 DH?: ASCIZ <377>/BLOCK END NOT SET/ 
031461 377 052122 020123 ie ASCIZ <377>/RTS DID NOT CLEAR/ 
031504 000002 DT1 2 
031506 003 007 Ai oe 
031510 001272 SAVR5 
031512 3 602 Y Hd oo 
031514 001270 SAVR4 
031516 DT2: 3 
031520 007 ate 6 6 
031522 001272 SAVR5 
031524 003 010 BYTE 3,10 
031526 001270 SAVR4 
1530 003 002 BYTE 3.2 
031532 001264 SAVR2 
031534 000002 DI3: 2 
031536 003 017 BYTE 3,17 
031540 001272 SAVR5 
031542 002 002 BYTE 2.2 
031544 001266 SAVR3 
031546 000002 DI4: 2 
031550 006 021 -BYTE 6,21 
031552 027344 CALBCC 
031554 002 002 BYTE 2,2 
031556 001266 SAVR3 
031560 000003 DT5: 
031562 001 011 OvYE 1,17 
031564 001300 ZERO 
031566 001 011 vTe 71 


031570 001302 ONE 
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Oe ere 


031744 
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031746 


0304 
312 
315 
304 


05 
40 
34 
35 
61 
04 
54 
61 
04 
01 
61 
04 
25 
36 
60 
54 


; 
1 
1 
1 
1 


(Nolololol=tot=) 
BAM ANMANS 
| 


Ww 
_ 
“N 


Nonny 
RYSRRVOR 
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SEQ 0105 


032224 


032226 
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ADRCNT= 004373 
AUDONE 3024 


3806 
5344* 53724 


fe Pe 
SOOWO-WA 


nnnnono 
BA SSRENSNS 


RAN MMH SH NNN EWAN em 
WM WM 


ONW NAW On 


Ww 
eo) 


007054 
012252 
003730 
003732 
027344 


1580* 
1620 


3944 4029 4205 4256 





. 9 
CZDME_ _MACY11_ 30A(1052) 11-SEP-78 12:45 PAGE 108 
CZDMEC.P11 11-SEP-78 12:38 CROSS REFERENCE TABLE == USER SYMBOLS 


CREAM 001320 7894 1077* 1883* 1884  1886* 1890 
CSR 006510 1781# 1989 
010514 9644 
CTSDLY 030076 53584 
CYCLE 01 1314 1355 1356 18744 
DATABP 005216 1643* 1646 1668 16714 
DATACL= 104415 835" 2687 2731 2735 2795 2796 2810 
2 2949 2963» 3005S 3008 »«=— 3049-=S 3077 
3321 0 3361 3404 3405 3442 3583 
8 3733 37 3762 «3763 = 3808 = 3809 
4022 4 4057 4075 = 4082S 4084 = 4119 
4309 4311 «4322, 44464460 = 4481 = 4.501 
4709 4714 «4720. 4774 25-5348 
DATAHD 005204 1642% 1664 16674 
DELAY = 104413 8314 
004370 1471* 1516 
DEVTAB 003010 1177, 12428 
1031161 53 
DH10 031461 53904 
031202 53904 
DH3 = 1240 53904 
031276 53904 
DHS =—ss«03 1336 53904 
031370 53904 
7 031436 53904 
DISPLA 001200 736# 1092 1098* 1329s 
DISPRE 000174 722# 1098 
DMACTV 001306 7834 #91115 1270 1271 1874 1888 1970« 
OMCM 007320 1228 17814 
001500 8734 
DMCRO1 001510 8784 
DMCRO2 001520 8834 
DMCROS 001530 8884 
ROG 001540 8934 
DMCROS 001550 8984 
DMCRO6 001560 9034 
DMCRO? 001570 
DMCR10 001 9134 
DMCR11 001610 9184 
12 001620 9234 
DMCR13 001630 9284 
DMCR14 001640 9334 
DMCR15 001650 9384 
R16 001 94.34 
DMCR17 001670 9484 
001404 8564 1162* 1196 1201* 1206" 1241 1359 
1950 227 
DMCSRH 001406 8574 1738* 1739% 1743" 1769% 1750" 1756* 
DMCTL 001410 8584 1903* 1904x 1905 
001310 7844 1073 «1345 1968" = 1983* = 2162e 2163 
DMPOS = 001412 8594 1727* 1733 1770 1775 1905"  1906« 
5227* 5228s 
001414 8604 1744" 1907* 1908s 
DMRLVL 001376 8534 1910e 1911" 1912 
DMRVEC 001374 8524 1362 1893* 1894 3910 
DMS100 001502 8748 


2171* 


1396 
1758* 


2172 
1907 


2847 2861 2897 
3133 3162 3210 
3612 3613 sa00 


3892 38 
4212 4233 4263 
4551 4569 4576 


2177* = 2178* 2182 


1688 1711 1757 
1901* 1902* 1903 


2174 
4971 4984 5026 


2207 


1892s 


5142 


SEQ 0107 


1901 


5217* 
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DMS101 


001512 
001522 
001532 
001542 
001552 
001562 
001572 
001602 
00 


1914 
like 1140 1256 1884 1886 1964 1969 2199 
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031516 
0315 


4117 4191 4195 4438 4443 4822 4826 4830 4916 52664 


1681* 1899* 
1389* 1631* 1644 1658* 


g 
2EN 


we 
Sra 


4828 5835 4875 53754 
1209 


1 
1 
1 
1 
1 
1 
1 
5 
1 
4 
1 


=e te.) ee | 
— 00 -WAAAN 
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027472 
027460 
026342 


111 
ROSS REFERENCE TABLE == USER SYMBOLS SEQ 0110 


005222 
004 366 
INIFLG 
INRDY 027202 


INSTER= 104404 
INSTR = 


2373* 2415* 2431% 2457% 2480* 2515* 2535» 
3754* 3829* 


1630* 1718s 


1657 17814 


4430 4436 
53734 
4823 4827 


2679 
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$882 2934 986 3242 
394 3438 3 3938 


MTITLE 


3721* 


1999 2078 2087 


1498 1500 1502 
1365 1898+ 


2211* 2221* 


1384 


RESREG 005220 
RESTAR 005350 19084 
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RESTRT 003534 ! 1355¢ 


1393* 
2274 


ROMCLK= 104414 


Sous esae 
WW @nunouw 


oO 
OO 
n= 


aettet ance e en 
w 


co 

Co 

— 
a 


2175* 
1693 


026736 
027236 


002632 


15994 
1687 


2352 
2594 


111 1941* 1971 


030152 
Gas 5117* 51274 


004402 
010016 1818* 1845* 18514 
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SWE S 
1107 1265 1270 1375 1382 1406 1421 1621 1626 
1844* 


rninnnnnnnintnnnnna 


IW 
» 2) 
HRM HNN HB 


WA WUIW— 


» 


5 

11 
46 
51 
11 
43 
48 
11 
11 
26 
14 
14 
4 

14 
14 
10 
25 
3 


Roo WORE RY 
° AOOoOsnw 
OVUINSE VW —W--fw 


a nae 


WWhNA- —-]2 Ww 





K 9 
CZDME MACY11 30A(1052) 11-SEP-78 12:45 PAGE 115 
CZDMEC.P11 11-SEP-78 12:38 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0114 


012374 
0 


SOOw? am 
MWUWOO 


RDOOSR 


ae 
= 


1 
’ 
1 
1 
2 
1 
1 
2 
2 
1 
1 
1 
1 
1 
1 


NWWO 
co 
— 
= 
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XLOC 1208 1239 12524 
XPASS 


XPOLY 36 3682* 3728*  3757* 3803 4256* 
watate 4901* 5166 5168 51764 


000017 
= 032226 





CZD0ME 
CZDME 


MACY11 
-P11 


30A(1052) 


11-SEP-78 12 


11-SEP-78 
38 


M9 
12:45 PAGE 117 
CROSS REFERENCE TABLE == USER SYMBOLS 


1109 1119 12514 1269 1704 1714 
2016 2136 2140 2187 2218 2250 


> 
WWUIWUIROD 
“J O00 4 
zz 


nz 
x 


17014 1709 


1086 1841 


53 
1 
1 
1 
1 
1 
1 
1 
1 
l 
, 
: 
1 
1 
1 
1 
1 
1 
1 


SAK NO SWYINNO SNS 


17624 
225 


179 


348 


7# 
4 


1854 
3531 


1 
4 


857 
086 


SEQ 0116 


1878 
4313 
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w 
o 
N 


3 
9 
7 
7 
7 
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3504 738 5 3889 3919 
41 rs 4 738 4345 4 4383 
464 4661 4666 4740 
Pht 94 : 496 ¢ Se 499 1 200% 
5238 3 5 5289 


$ZEROS 
- ABS. 032226 


ERRORS DETECTED: 0 
CZDMEC/I, -i%) SEQ/CRF /SOL=CZDMEC 
RUN- ; 1_SECONDS 


: m 
CORE USED: 32k (63 PAGES) 





